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LIST List a save set 16-Sep-19 2:06:23 VAX-11 Bliss-32 V4.0-74 Pa 1 
ase aets 1 90:06:¢7 WEE SUMCMASTER ChACCUD SRCILIST.B32:1 ™ (1) 
MODULE LIST (ZTITLE ‘List : save set’ 
we = 'v04-000' 
= 


BEGIN 


' 
Vee R RARER ARERR RARER ERAEEREREAEEAAAEREREEHREREREREEREEEEE 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


DONA VNEWN —OOONOUS WW" OVOONOUE wh 


608 
00 
B80 
00 
000 
B08 
00 
000 * 
000 * 
1 1 * 
i 1 : 
* 
1 001 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 001 ‘s ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 001 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 001 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 001 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
' id :* TRANSFERRED. * 
: 5 
§ 002 ‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
635 's AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
§ B05 :* CORPORATION. 
: ® 
2 it 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
§ BRS » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - 
* 
§ +f PETTITT ITT TTT TTL TTT TTT iit iti iit i iti ii iii ii iiiiiiiiiiiiiiiiiiiii gy) 
00 ! 
008 
; 00 '+¢ 
00 ! FACILITY: 
3 00 ! Backup/Restore 
003 ! 
Oe ' ABSTRACT: : 
One This module contains the routines that List a save set. 
003 ' ENVIRONMENT: 
003 ! VAX/VMS user mode. 
ie 


AUTHOR: M. Jack, CREATION DATE: 03-Sep-1980 
i MODIFIED BY: 


ooo 
+4 
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8 
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i 
004 i v03-008 LY0510 Larry Yetto 19-JUL-1984 08:45 
Spee ! Add support for the new longword format of the DEVTYP in 
0048 ; the physical volume attribute record. This longword is the 
3 4 same format as UCBSL_MEDIA_ID 
24 Boe! i v03-007 LY0483 Larry Yetto 7+APR-1984 08:39 
2g 00 § : FT1 QAR # 2088 - If save set being read is encrypted 
a7 Opee and /ENCRYPT was not specified then signal an error 
a6 0055 i v03-006 JEP0003 J. Eric Pollack, 23-Apr-1983 10:53 
28 Bpes Add support for encrypted savesets. 
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List a save set 16-50 Sep-1984 3 VAX-11 Bliss-32 V4.0-742 
: 3op-1 be 99:88i8s | NTE csumehAS fens cudccur srcauist.e32:1°%° «15 


P 
3 3 0038 1! v03-005 ACG0313 Andrew C. Goldstein, 12-Feb-1983 16:20 

; 4 O0¢6 : } Add routine subtitles 

: 61 Oe 1: v03-004 MLJ50891 Martin L. Jack, 05-Nov-1982 16:37 

; $$ 0 o¢ Correct save set volume number in Listing produced during save 

: o Sher ! operation. 

: 65 0065 1! v03-003 LMP0032 L. Mark Pilant, 22-Jun-1982 10:35 

; 66 066 1! Add support for wildcard save sets on a LIST or RESTORE 

3 of Boee ! operation. 

; es 494 1 v03-002 MLJ0084 rtin L. Jack a Faas 3:07 

; 70 0070 1: Use FATSW_MAXREC eetkes than FAT W_RSIZE to report 

: 71 0071 1! record Size. This corrects a Iscrepancy with DIR eC PORT PULL. 

3 f Oo7¢ : Add new device types to track Seber. 

: 7 Sore 1 i v03-001 MLJ0083 nL. Jack, 22-Mar-1982 13:37 
3 e Bete ' Track change to Pome CTONT/Pock: 
> 2 0077 v02-005 MLJ0081 rtin L. Jack, 26-Feb-1982 16:19 | 
. wa 0078 1! Implement RETAINMIN' and RETAINMAX attributes to support new 

: 44 dh 4 : home block fields. 

>: 81 0081 1! V02=004 MLJ0043 Martin L. Jack, 3-Sep-1981 21:34 

; B¢ poEs ! Add stream record types to /FULL Listing. 

> 84 G08 1 v02-003 MLJ0036 Martin L. Jack, 28-Aug-1981 17:44 

3 5 085 1! Implement reel restart. Track new device type codes. Add 

3 6 0086 1! backup date to track DIRECTORY/FULL. Print command Line on 

3 +4 it : multiple Lines if necessary to avoid truncation. 

; 89 0089 1! v02-002 mLJ0020 artin L. Jack, 20-Apr-1981 22:09 

3 + 4 : } Implement /JOURNAL qualifier. 

: ¢ 0092 1! v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 16:02 

..% id 1! Reorganize AL eae > storage. Replace OWN storage by LOCAL. 

3 4 44 : } Add gapabit ty for Listing concurrently with other operations. 

: 96 0096 1 ise 


X-11 Bliss-32 V4.0-742 P 
SKSVMGHASTERSCBACCUP ERCILIST.B32:9°"" (25 


LIS] List a save set rete $1984 00:06:23 VA 
102380= 1382 99:98:82 I 


VALUE, ! Get BACKUP summary attributes 
GET_VOLUME_ATTRIBUTES: 


LUE, Get volume summary attributes 


98 9 7 REQUIRE ‘SRC$:COMMON'; 

99 3 LIBRARY *SYSS$LIBRARY:L1B"; 

: REQUIRE ‘LIBS:BACKDEF'; 
0 
8 6 $ LINKAGE 
9% 6 _P$ = CALL: GLOBAL (P$=11); 

65 

09 660 MACRO 
4 ee L_DECL= EXTERNAL REGISTER PS = 11: REF VECTOR &%; 

0 6 

1 64 FORWARD ROUTINE 

§ 65 LIST_FAO: L_P$ NOVALUE, ! Format information to Line buffer 

98 LIST_EOL: L_P$ NOVALUE, ! Write Line buffer to Listing file 

4 6 LIST_PROTECTION:L_P$ NOVALUE, ! List protection code 

5 68 FULL_LISTING: L_P$ NOVALUE, ! Produce /FULL Listing 

6 69 LIST_ONE_RECORD:L_P$ NOVALUE, ! List one save set record 

7 70 INIT LIST: NOVALUE , ! Initialize listing 

8 71 FIN_CIST: NOVALUE , ! Finish Listing 

4 i CONCURRENT _LIST:NOVALUE, ! List one buffer concurrently with 
0 7 ! another operation 

if LIST: NOVALUE ; ! Driver for List-only execution 

76 

4 77 EXTERNAL ROUTINE 

5 78 K: L.P$ NOVALUE, ! Deblock a save set buffer 

6 79 DECODE_DEVTYP: NOVALUE, ' Convert DEVTYP to ASCII string 

7 FILE ERROR: NOVALUE, ! Signal file-related error 

8 1 F IN_TN_ SAVE: NOVALUE, ! Finish input save set processing 
; GET- SUMMARY _ATTRIBUTES: 

1 

2 

3 


A 
GET_FILE_ATTRIBUTES: 
LUE, ! Get file attributes 

valiiiaetmiig A 


84 

+H 

ay 

88 

89 NOVALUE, ! Get physical volume attributes — 
90 INIT_IN_SAVE: NOVALUE, ' Initialize input save set processing 
91 READ_ BUFFER ! Get one buffer from save se 

% RESTORE _HANDLER, i Handler for RESTORE, LIST, ANALYZE 
9 CRYPTO_INIDEC: WEAK, } setup for peueone encrypted saveset 
94 CRYPTO_CHKSAV, ! Check for encrypted save set 

95 CRYPTO_DECR_BLOCK: 

38 NOVALUE WEAK; ! Decrypt one block 
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698 
699 EXTERNAL LITERAL 
00 CKUP$_OPENOUT 
701 BACKUP$_WRITEERR 
7 g CKUPS~BACNOTENC, 
70 BACKUP$_ CLOSEOUT 
i BACKUP$~ENCSAVSET; 
7 
+0 GSDEF INE(); ! Define global common area 
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ave set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4. 
= call FAO to format data beater 90:08:83 DISKSVMSMASTER: CBAC 
ZSBTTL "LIST. FAO = call FAO to format data’ 
GLOBAL ROUTINE LIST_FAO(CTRL,PARAM): L_PS NOVALUE= 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This routine interfaces to FAO to format information into the Line. 


INPUT PARAMETERS: 
CTRL - ASCIC control string 
PARAM... - Parameters required by the control string (if any) 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Information formatted into the Line buffer. 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


ss 

LOCAL CTRL: REF VECTORC, BYTE); ! Pointer to ASCIC string 
OUTLEN: WORD, ' Length of FAO result 

. pec. DESC: VECTORC2); ! Descriptor for control string 


Build a descriptor for the control string. 

pescto] = .CTRLCOJ; 

DESCC1) = CTRLC1); 

: Use FAO to edit the information. 

SFAOL(CTRSTR=DESC, OUTLEN=OUTLEN, OUTBUF=_LIST_DESC, PRMLST=PARAM); 


adde ‘ 
1st _DEscto} “LIST _DESCED) = .,QUTLEN; 
IST_DESCC1 LIST DESCL1) + .OUTLEN; 


1 
1 
! 
L 
L 
END; 
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TITLE oH ist a save set 
-IDENT \vV04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE : 
00000 FREE_LIST: 
00008 INPUT WAIT: 
00010 REREAD_WAIT: 
00018 OUTPUT_WAIT: 
.BLKB 
00020 JPL_ulC: <BLKe 


00024 JPI-USERNAME : 
.BLKB 
00030 JPI_DATE: a 
00038 JPI_NODE “DESC: 
00040 JPL_CURPRIV: 
00048 SYI_VERSION: 


-BLK 
0004C SYI_SID:.BLKB 
00050 sus0 -HOLD_LIST: 


00058 RwWSV_ crcié: ee 
00098 nusy auropine 
00008 RWSV FILESET 1D: 
OO0EO RWSV_VOLUME ID: 
OOOEC RWSV_VOL “HUMBER: 
QOOEE RWSV_SEG “AUMBER: 
OOOFO RWSV FILE en) 
000F4 RWSV_SAVE GUAL: 
000F8 RWSV_SAVE FAB: 
OOOFC RWSV_ CHAN: 
00100 RWSV_XOR “BtB: 
00104 RWSV_IN_ phe 
00108 RWSV_IN_ -aeh'8. 
0010C RwSv “1 in SEQ: 
-*BLRB 


ee eS ee ee 
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r 00 List Pad eee att FAO to format data 13-ep-1964 t 00: 96: i ST EKSUMGHATERcCbACCUS” 
00110 RWSV_IN_XOR_RFA: 
00116 RWSV_LOOKAHEAD: 
00117 RwSV_xOREIZE: 
00118 RWSV_IN_GROUP_S! 
0011¢ RWSV_IN_ ERRORS: 
OO11E RWSV_IN_XORUSE: 
00120 RUSV.INORGERR: 
00128 RWSVINVBN: 
0012C RWSV_IN_VBN_0O: 
00130 RWSV_ALLOC: 

00134 RWSV_EOF: 

00138 RWSV_OUT ity 
0013C RWSV_OUT_VBN: 
00140 RWSV_OUT_BLOCK_COUNT: 
00144 RWSV_OUT ERRORS: 
00146 RWSV_SEQ_ERRORS: 
00148 RwSV_OUT “GROUP COUNT: 
00149 RWSV_PADDING: 


0014C QUAL:  .BLKB 
001BC COM_SSNAME: 


7 -BLKB 
001C4 COM_VALID_TYPES: 
0016 COMFLAGS: 
001C8 COM_PADDING: 

-BLKB 
001¢9 COM_BUFF COUNT : 
OO1CA COM_I_SETCOUNT: 

-BLKB 
001CB COM_O_SETCOUNT: 

-BLKB 
001C¢C COM_1_STRUCNAME: 

- 001D8 COM_O_STRUCNAME : 

.BLKB 
001E4 COM_O_BSRDATE: 

-BLKB 
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OO1EC 
0020¢ 
00200 
0020€ 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 
00290 


1fcdeo-1964 90:06 


ALT_SSNAME : 
INPUT_FUNC : 

BL 
INPUT -RTVPE: 
OUTPUT _FUNC : 

LKB 
FAST_STRUCLEV: 
INPUT _BEG: 
LKB 

INPUT CHAN: | 
INPUT Figs: 
INPUT _PABDING: 
INPUT _FAB: 
INPUT_NAM: 
INPUT _8C8: 
INPUT_QUAL : 
INPUT_BAD: 

~BL 
INPUT_BLOCK: 
INPUT -PAXBLOCK: 
INPUT MEDIA 1D: 
INPUT LNAHEDESC: 
INPUT. _STATBLE: 
INPUT _HDR BEG: 
INPUT_CREDATE : 

-BLK 
INPUT_REVDATE : 

-BLKB 
INPUT_EXPDATE : 

BLKB 
INPUT_BAKDATE : 


-BLK 
INPUT _F ILEOWNER: 


-BLKB 
INPUT_F ILE CHAR: 
"BLK 
INPUT_RECATTR: 
-BLKB 
INPUT_HDR_ END: 


-BLKB 
INPUT_END: 
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V2 5000 LIST_FAO = call FAO to format data ba teat ts 14 90:96:¢7 DISKSVMSMASTER: (BACKUP. SacILIST.032; — (3) 


| 
| 00290 Input proc List: 
00294 INPUT PLACEMENT 
0029¢ INPUT _VBN LIST: 
00244 INPUT_PLACE_LEN: 
00206 INPUT PADDING. 2: 
0028 ouTPUT BEG: 
002A8 QUTPUT_CHAN: | 
002aC OUTPUT _FLAGS: 
QO2AE OUTPUT_PADDING: 
00280 OUTPUT_FAB: 
00284 OUTPUT_NAM: - 
00288 OUTPUT BiB: 
002BC OUTPUT_ ~OUAL 
002CO OUTPUT_BAD: ‘. 
002¢4 OUTPUT si gtk: 

002¢8 OUTPUT NiyBLOCK: 

002cC OUTPUT -péVGEOn: 


00204 OUTPUT _atiBUr: 
144 | 


or rr FR RF FENN R ON NH OO 


00364 OUTPUT “elie 
00364 LIST row its: : 
00368 LIST_TOTSIZE: 
0036 VERIFY_FAB: : 
00370 VERIFY USE COUNT: 
00374 VERIFY_QUAL : : 
00378 COMPARE BCB: 
0037C FAST_BUFFER: 

00380 FAST “BUFFER SIZE, 
00384 FAST RUN . 3 


LKB 


LIST 
-000 


FAO to format data 


1Sden- 1984 19:98gsNScgune 


00385 FAST met 0° 
00386 DIR age 
00388 FAST_VOL_BEG: 


LKB 
00388 FAST_IMAP_SIZE: 


0038C FAST_IMAP: 


-BLKB 
00390 FAST_HDR. OFFSET: 


-BLKB 
00394 FAST_BOOT_LBN: 

.BLKB 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039¢ JOUR_DIR: 

-BLKB 
003A0 JOUR_HIBLK: 
003A4 JOUR -EFBLK: 
003A8 JOUR ~INBLK: 
OO3AC JOUR_ rrite: 


OO3SAE JOUR_ INBYTE: 


00380 JOUR_STRUCT LEV: 


00382 JouR.couit: 
00383 JOUR_REVERSE : 
00384 JOUR -EXSZ: 
00386 JOUR_PADDING: 
00388 CHKPT _wiéHe SP: 
003BC CHKPT_LOW sP: 
003CO CHKPT STACK: 
003¢4 CHKPT “wits 
003¢8 CHKPT “statues 


dosce D 
B03p4 : 


00308 -SEL_DIR: 


- FP OF fF fF fF FNMN NH | S| NN NH SF FF SF FSF FO Ff Ff KF KFS KH 
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-BLKB 
O03EO DIR_SEL IVs 
0038 DIR_STRUCLEV 
003E9 DIR_LEVELS: 
LKB 
OO3EA DIR FLAGS: , 
OO3EB DIR STATUS: 
OO3EC DIR STRING: 
0052C DIR_STACK: 


LK 
0790 DIR_SP: .BLKB 
0794 DIR-SEL_ et 


BLK 
00798 DIR_END:.BL 


T: 


KB 
00798 DIR *SCANLIMIT: 


0078¢ Input _wTioe® 
007CO OUTPUT_MTL: 
007¢4 CURRENT _ATL : 
007C8 CURRENT_VCB: 
007CC CURRENT cb: 


-BLKB 
00700 ACL_FIB -DESCR: 


00708 ACL_FIB: ne 
00818 ACL-LENGTH 


0O81C ACL “eurri 

00820 CRYP_IN -tONTE 
00824 CRYP_OU_CONTE 
00828 CRYP_DA -EONTE 
0082C CRYP_DATA re 
00834 CRYP_ DATA COD 
00838 CRYP DATA wh 
00840 CRYP DATA iV: 


XT: 
XT: 
XT: 
IV: 
E: 


LK 
00848 CRYP_DATA_CKSM: 
-BLKB 


OUTPUT_ LEMAR 


OUTPUT"RECAT 


-@ooreanr ££ Ss f& FP OM FR RF RP 


OUTPUT _ATTBUF 
OUTPUT"ATTBUF +16 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 


fece i 


; Routine Size: 


08 AE 


48 bytes, 


14 
set ree “19 
all FAO to format data 12-Sep-1984 
OUTPUT_F ILECHAR= 
eEXTRN 
eEXTRN 
»EXTRN 
oEXTRN 
eEXTRN 
»EXTRN 
eEXTRN 
eEXTRN 
»EXTRN 
~EXTRN 
~EXTRN 
eEXTRN 
~EXTRN 
~EXTRN 
«WEAK 
PSECT 
0000 00000 ENTRY 
5E 0c C2 00002 SUBL2 
04 AE 04 BC 9A 00005 ee 2 
06 AC 01 €1 QOOOA ADDL 
08 AC 9F 00010 PUSHAB 
58 OD 00013 PUSHL 
08 AE 9F 00015 PUSHAB 
10 AE 9F 00018 PUSHAB 
000000006 00 04 FB 0001B CALLS 
50 6E 3C 00022 MOVZWL 
68 50 ge Bn 0§2 SUBL2 
50 6— 3C 00028 MOVZWL 
04 AB 50 CO 00028 DDL2 
04 0002F ET 


Routine Base: 


CODE + 0000 


4 90: 9g: ¢3 VAX=11 Bliss<-32 V4.0-7 


42 
DISKSVMSMASTER: (BACKUP. SRCILIST.832; ° 


UTPUT_ATTBUF +100 
K, DECODE_DEVTYP 
R AVE 


a 
um=< ws OO 


IBU var 


K 
BACKUPS BACNCTEN 
BACKUPS ENCSAVSET 


SYS$FAO 
CRYPTO_INIDEC, CRYPTO_DECR_BLOCK 
CODE ,NOWRT,2 
LIST_FAO, Save nothing 
#12, SP 
acTAL DESC 

agit. DESC+4 
* 
OUTLEN 
#4, SYSSFAOL 
OUTLEN, RO 
RO, (P$) 
OUfLEN, RO 
RO, 4(P$) 


Pete Se Se Se Ge Ge Fe Be Se Se Se Be Se 


mS 


re | 


Sess we 
ONGOWE ire 


=I IPIPIPIPIPIPIPIPIPIPILAPYIPIPIAIPDPININIAIIPI IN IPIAIIAIY) ad ad kk kk kk tk tt 
ome 


OOo NS 


PEA AAEAXAE MINNIS 

VISFWN—ODOONOUS WW —-OVDOONO 
foleleleolelelolaloa] 
CONAUILSWI—O 


PMOTOUMIPUNIPIPOPOPUNofofrunynrononony 


SSBNSARAN SSH US 


MOPUPOPOPOPOROPOPOROPoTnoNnofony 
a eee a a a ae a ee ee ee a ee a a i ee ee ee ee ee ee od od 


Be Se Se Se Be Se Ge Se Se Ge Se Se Ge Se Se Se Se Gets Ge Fe Se Ge Bs Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Gs Ge Sse Se Ge Se Se Se Ge Se Ss Se Se Se Se Se Ge Ss See ee 


MINIM mn 
SSSISPSSTaSEa SSS 


14 
a save set 1b-Se 1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Pa 
EOL = urite buffer to Listing file erg 8-1 380 i DISKSVMSMASTER: CBACKUP.SRCILIST.B32;1 or 
ZSBTTL "LIST EOL = write buffer to Listing file’ 
GLOBAL ROUTINE LIST_EOL: L_P$ NOVALUE= 
1e4 
! 


i FUNCTIONAL DESCRIPTION: 
: This routine writes the Listing buffer to the listing file. 


i INPUT PARAMETERS: 
NONE 

i IMPLICIT INPUTS: 
NONE 


i OUTPUT PARAMETERS: 
i NONE 


i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 


! 

' 

1 

| 

1 

1 

! 

1 

1 

' 

! IMPLICIT OUTPUTS: 
NONE 

' 

! 

i 

1 

} he listing is produced. 
' 


LIST_FAB: REF BBLOCK; ! FAB for Listing file 
L_DECL; 


} Compute the Length of the Line. 
LIST_FAB = .QUALCQUAL_LIST_FC); 
BBLOTK LIST “FABEEC RABY. RABSW_RSZ) = L 
BBLOCK(LIST_FAB BF] = 


* 4 -LIST_DESCLOJ; 
FC"RABJ, RABSL_R ; 


: Write the Line. 
iF NOT SPUT(RAB=LIST_FABLFC_RABI) 
THEN 


FILE ERROR( 
BACKUPS URITEERR + STSSK_SEVERE, 
“BBLOCKCLIST_FABLFC_RABI, RABSL_STS] 
“BBLOCKCLIST~FABLFC-RABJ, RABSL-STVJ); 


' Reinitialize the line buffer descriptor to describe the entire Line. 
LIST ESCO} LIST_SIZE; 
1 


' 
i] 
LIST. = 
LIST“DESCC1] = _LIST_BUFFER; 
END; 


————— _8:1'mmw_'—sOXsH sai 


14 
Vb2-000 LEE bore ueike butter to Listing file 1$-ep-1984 990g ae PNKSUMGMASTERS BACKUP. SRCILIST.832;1°%° rH 


-EXTRN SYSS$PUT 


000C¢ 00 ENTRY LIST_EOL, Save R2.R3 3 1795. 
| 2 00000000' EF 06 O02 MOVL bOALTSe 1ST_FAB + 1830) 
72 A 0100 8F 68 A 0 SUBW3 (PS), #256, 1T4(LIST_FAB) ; 1831 
3 08 A 3 0010 OVAB (RIT), R t 1832 | 
78 A 5 p b0014 OVL R3, 120(LIST_FAB) : 
50 A2 9F 00018 PUSHAB 80(R2) + 1837 
000000006 09 o1 Fe 001 CALLS #1, SyssPut : 
1 0 5 00 BLBS RO. 1$ ; 
7E 58 Ag D 000 MOVO 8B8(LIST_FAB), -(SP) : 184 
52 0D 00029 PUSHL LIST_FAB 3: 184 | 
000000006 &F DD 00028 PUSHL #BACRUPS_WRITEERR+4 + 184 
000000006 00 04 FB 00031 CALLS #4, FILE-ERRO : 
68 0100 ef 3¢ 0038 1$: MOVZWL #256 (PS) + 184 
04 AB 3 00 00030 MOVL  R3, 4(P$) + 184 
04 00041 > 185 


; Routine Size: 66 bytes, Routine Base: CODE + 0030 


Page 15 
~ a 


Bliss-32 V4.0-742 
SMAS 


oo 
*. 
N 
~m 
@ 

o 
— 
w” 
— 
=) 
Loe | 
uo 
< 
” 

8 
a 
—_ 
= 
7 
4 
@ 
— 
e 
uw 
e 
= 


= ese 
= oo 
a Cn) 
w @ = 
“ 2 3 bd 
us a —! —— 
> - ee ” 
a >m [vs) 
=< . a a 
me an cw o 
Oo . oo Vv 
-2Z a - 
a ~ be 
asa . . vet - 
~a w “ @@ 
oe t | a ~w bad 
>w ~ “oO Ow ° 
«© 4 °o @ a 
ce > vw aw sn <x 
on — a al - 
“-—-w Cc oe. —eome ~e ef © oF 
ws o >e = 8 of oe — 
27a - a “tau t 
eo a cw ses Eee Ss~— o 
Te) re) oe or econ < 
o- a -—— wow ~~ 3Bto — 
cr we ww -- novus 
aD o ve uw > ~ 2 
ec — Le | com "sess AA 
-a a “Oo ° oe: “ere = 
o~w oe eo ] ew _ 
ea o ec ow ve VUvVUUYU 
co ae re) wo not eg ee et ta] 
on “ = | > VOovUwW => 
Soa ae ic ao] ned MMnn e 
=) @ °o uw <<a< Sed + 
ow -E i ee a> PePeTe -~o wT 
al z $ a —weew “a « 
oa te w [vurveyrveyry) om . 
-a a - Sl eel aol eel aoe oOo uw bas 
-— 6 ae eo >>> > oa oo - 
ve -—C ” hd tou) —-@OoOoaw ze o 
ww er-w * a ” c — mm B log 
te ve az ” w _ - ab oo oOo a 
ow "o> w be ond — | ° QS ae oOo ° 
[4 wo - — w a w “an 243 JO - Ss 
aw ote w a = _ |) Wer o aaaare ° = 
| = 4 = ”» 2 ~ ] — -~ “A HODSDDY So VveZzo 
eo mr) —w us Qw Ow daw wv mw w <uZ +e 
ne =<z=--- «£oa <a 2a >2 we oa oO > - oOo S& 
-—D> Zo «azo -O 4 -O oO «wt ra - ue SZ 
+O Or Atav 2 2 wet we aw 3 2~—_ Ow 
- <= — w - uw z w — & oe 
i coo = =» — co oe. oov a 
Fat =) - z a wz bo uw - = —~<= < 
ra) uo 
at 5 = = > = é _ _ oa w = se 
@ >- _ “~ o _ « ” ‘1 oan 2 a ad = 
YW + Hi ws =~ ‘ 2 2 
pC eee @ @ oat a w 


LLL LLL LLL LL III ICICI CII COON FF FMC 


AD phe Soh ty tye a ty SMe EN eh a Nt OP ER ee EN OM OY EY 
MWMAMNNANAWINODOODODOODOOOOORPPRPPK.P_P.BR.R. ODDO DDODWDODDOOEOOOOOOOOPOOO 
€0.00.60.60.00 60 G0 60 G0 60 60 60.60 GO 60 60 GO GD GD GD 60 GD 6D 6D 6D GD 60.00 60 GD GD GD GD GD GD GD 6D. 60 GD GD GD 6D GD GD. 6D GD GD 6D GO O- OO 


re 


KVM TN OR DRO NUIMSNOR ODOK— IM SHOR DROK— AIM TNOR DOOR UM NOR ODOR 
PAS SAS ae pe tp pn te AA AOS AY AY et GRD te CAN Gt er eR ae ee pe RAPS AP 


<7>\System:\ 
<8>\, Owner:\ 


ig 
LIST List a save set -$ep-1984 00:06:23 VAX-11 BLiss-32 V4.0-742 
v04-000 LIST PROTECTION = format protection value 12286871382 99:06: ¢3 DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 fee 
A 


70 75 6F 72 47 C 3 P.AAD: .ASC >\, Group:\ : 
A 64 6C 72 6F 38 gt 88 P.AAE: “ABELL BN. World:\ 3 
00000000' 00000000° aati 41g 88 } B-AAA: Lips sAAB ?. AAC, P.AAD, P.AAE : 
OAC P.AAG: .ASC < SN rac : 
WHO= P.AAA 
001¢ 00000 .ENTRY LIST_PROTECTION, Save R2,R3,R4 ; 
54 FFGA cf 9E 06 MOVAB LISTIFAO, R4 : 
; D4 CLRL I ; 
08 AF43 DD 00009 1$: PUSHL WHOLI) : 
E8 AF 9F 0000D PUSHAB  P.AAF : 
64 02 FB 9001 CALLS #2, LIST_FAO : 
52 04 0001 CLRL J ; 
50 624 DE 9001 2$: MOVAL (J)C1I, RO : 
0c 04 50 f 19 BBS RO, PROT, 3$ ; 
08 AC42 OF O01 PUSHAB CODESLJJ : 
01 DD 0002 PUSHL #1 : 
DS «AF «OOF 000 4 PUSHAB P.AAG : 
64 03 Fe 00 CALLS #3, LIST_FAO : 
£7 28 03 F3 OO02A 3$: AOBLEQ #3, J, 28 ; 
D7 6 03 F3 000¢E AOBLEQ #3. I. 1$ ; 
04 00032 RET ; 


3; Routine Size: 51 bytes, Routine Base: CODE + 00B0 


EEE 


= 
~o 


ag, FN RR RE EST am 


LP 00 List a save s 18-46 -Sep-1984 2 My: 96: $3 VAX-11 Bliss-32 V4.0-742 Page 17 
FULL_LISTING = - " sovant full Listing 14-Sep-1984 DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 (6) 

; 1903 1 XSBTTL "FULL “LISTING = format full Listing’ 

: 13 ¢ / ROUTI Ne FULL — LISTING: L_P$ NOVALUE= 

i 1906 1} 144 

; 130 13 

3 13 1 i FUNCTIONAL DESCRIPTION: 

$ 1 1 i This routine formats i dag The code in this routine is 

3 13i% } intended to track the piree be yor ting. 

; 1918 1 ' INPUT PARAMETERS: 

a ee 

; 1915 1 IMPLICIT INPUTS: 

; 1B tae 

: 1918 1 | OUTPUT PARAMETERS: 

: ee mths 

; 1921 1! IMPLICIT OUTPUTS: 

; 19 1 i NONE 

3 19 ¢ 13 

$ 1924 1! ROUTINE VALUE: 

: ae eee 

; 1927 1 | SIDE EFFECTS: 

: 1928 1! The Listing is produced. 

3 1368 1/ 

; Be | i 

: 1938 BEGIN 

3 19 LOCAL 

3 1934 BLOCKS, ! Used blocks : 

; 1935 DIGITS; ! Number of digits needed for file size 

3 1336 L_DECL; 

198 

; 1935 ; Compute file size. 

; 1941 BLOCKS = ROT(.OUTPUT_RECATTRCFATSL_EFBLK], 16); 

3 1306 F y thay RECATIR FATSW_FFBYTE) EGL 0 AND .BLOCKS NEQ 0 

3 394 194 HEN BLOCKS = .BLOCKS = 1; 

. 

: 397 194 ! Compute digits to display file size. 

BB od: @ hoagie tebenee: 

: 400 1949 .BLOCKS GTR 99999 0 ' If larger than 5 digits 

3 rt} 1920 Fah ATIBUFEFAR FILESIZE) GTR 99999 

; ahi 1926 aon '8tt8 = 10 ! then make output totally variable 

: 405 1954 DIGITS = 5; ' else use fixed field size 

ie fe 

; rts 1987 Format first line. 

; 410 1989 If .OUTPUT_FILENAMECDSC$W_LENGTH) GTRU 21 ! If long file name, 


| 


| 
| 
| 


Cc 
uw 


< 
3 
a 


4 
ave set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Pa 18 
TING = format full Listing 19-808- 1382 90:96:¢7 DISKSVMSMASTER: CBACKUP.SRCILIST.632;1 - (6) 


c- 
rw 
re 
= 
vw 


> 46 


'AS', OUTPUT_F ILENAME); ! Display name on first Line 
122e '); 


ViFWN—Oo er 


PAA 


ELSE 
FAO_("!21AS ', OUTPUT_FILENAME); 


SEESEEEE 


LS 


Seoeoonbnn our eee 
C009 69 09 C0 09 09 09 09 08 SINISE NNO 
WONAULSWN —O VOONOUSWN' OO 
RIPOPIMIPIPIPIPAPINIPIPIPIMYAIPIPDPIPIPIPIPIPOPIPOPIPIPIPIAINPIAPIPUIAIPU PIPPI APIPOPUPIPIPIPUPIPUNIPUPU PUI ANNI 
nm m n ad 
oO Pg x 
Piggk ss > 
mOrse mn mwunm ~~“ 
See07 PP 4" 4 
ee eee oroon 
VHAa—- ‘tt ~ 
Cee tana” 4 
aH -~w 
1mm 
Pe « 
_~ 


'MUL/'A<!UL!> Created: !17%D', 


BLOCKS, 
.OUTPUT_ATTBUF CFAR_FILESIZEJ, 
TBUF CFAR_CREDATEJ); 


vuvuv 


~v 
nN PP SS SS PS SS SS Ss SS SS SY Ss SS SS SS SS SS SS Ss os Ss Ys ss 1 YS Ss SS wT 


Format second Line. 

FAO_('!22® Owner: —-C! 30W, ! 30 Revised: ', 
.OUTPUT_ATTBUF CFAR_UI CGROUP 
OUTPUT —AT TBUF CFAR~UI CMEMBERI) ; 


: - (OUTPUT_ATTBUFCFAR_REVDATEJ) EQ. 0 


OT INSIST an ih ea 
WN — OD ONAULS WN" OVOOnNOUS WN 


Sahel eh et ee ek el ek ek ak el ek ke ee ee et et 


5 

36 FAO_("<None specified>') 

37 ELS 
438 P FAO_("!17%D (!uL)! 
439 P OUTPUT_ATTBUFCFAR_REVDATE], 

0 -OUTPUT_ATTBUF CFAR_REVISIONJ); 
441 990 2 EOL_(); 
44 991 
44 99¢ 
444 99 ! Format third Line. 
445 994 2: 
446 P1995 2 FAO_("!22* File ID: !14<(!UL,!UL,!UL)!> Expires: ', 
447 P 1996 .OUTPUT_ATTBUFCFAR_FID_NUM] + .OUTPUT_ATTBUFCFAR_FID_NMX] * 16, 
448 P 1997 .OUTPUT_ATTBUF LFAR—F ID~SEQ] 
449 998 .OUTPUT~ATTBUF CFAR~F ID-RVNJ); 
451 900 IF .(OUTPUT_ATTBUFCFAR_EXPDATE)) EQL 0 
438 On6 FAO_(*<None specified>") 
455 P 094 FAO_(°!17%D° 
456 05 OUTPUT_ATTBUF CF AR_EXPDATE)); 
457 006 EOL_(); 
458 00 
459 008 
460 009 ' Format fourth Line. 
461 010 2: 
46¢ P 2011 2 FAO_(''46e Backup: ' 
46 p og .OUTPUT_ATTBUFCFAR_FID_NUM] + .OUTPUT_ATTBUFCFAR_FID_NMX] * 16, 
464 P 201 .OUTPUT~AT TBUF LFAR~F I1D~SEQ 
465 O14 -OUTPUT~ATTBUF CFAR@F ID-RVNJS; 
rr: 016 2 IF .(OUTPUT_ATTBUFCFAR_BAKDATE)) EQL 0 


—_——— 


14 

LIST List a save -$ep-1984 00: 3 VAX-11 Bliss-32 V4.0-742 Pa 19 
‘Sd2000 FULL. LISTING = - "foract full Listing 12-888 ats % £08: gi DISKSVMSMASTER: CBACKUP. SRCILIST.832: 1 ” (6) 
: 468 O17 THEN 

3 ¢ 8 19 ese’ ”- ("<No backup done>') 

; 471 p 50 FAO_(*!173%0" 

: 47 1 “outPuT_AfTBuFCFAR_BAKDATE)); 

; 473 g EOL_(); 

: 475 8 i 

; tA ' 5 Format fifth Line. 

: 478 0 § FAO_(" File protection 

; 4 3 0 8 bist gi PROTECT NC, OUTPUT * arteur EAR _FPROJ, "RWED'); 

- oe 

; rt ti Oss 3 7 Format sixth Line. 

: 485 034 File organizatio 

; 486 035 SELECTONEU .OUTPUT TAECATIACEATSV. FILEORG) OF 

; 488 037 EFATSC. SEQUENTIAL]: FAO_(' poquent tet” ); 

; 489 P 2038 FATSC_RELATIVE): FAO. ("Relat aximum record number = !UL', 
: 490 039 OUTPUT *RECATTACFATSUL MAXRECJ); 

: 691 040 fFATSC INDEXED): FAO_( Lidexed' ); 

: 492 P 2041 OTHERQISE): FAO ( pes 

: 493 g04e  ooreut ORECATTR ATSV., Pt EorGd): 

: 49% 04 TES; 

; re $045 3 EOL_(); 

: 497 04 

3 rhs 2047 ; } Format seventh Line. 

: 500 BP $048 FAO_ G* pra AS oa Ailocation = !UL, Extend = ‘UL’, 

> 501 Pp 2090 .OUT T_ATTBUFCEA AR_FILESIZE] 

: 308 2051 -OUTPUT-RECATTRCFATSW_DEFEXT4); 

; 203 205¢ If OUTPUT TPUT-RECATTRL _BKTSTZE] NEQ 6 ! If non-zero bucket size, 
Bo Be Lae 

: 507 2056 IF =oyfeut: -RECATTRCFATSY_FILEORG] EQL FATSC INDEXED THEN FAO_('maximum *); 
; 508 057 FAO_("bucket size = !UL'> .OUTPUT_RECATTRCFATSB_BKTSIZEJ)); 

: 509 058 ND? 

: 510 059 2 EOL_Q); 

s $11 +4 

s Die 1 

; 317 O66 Format eighth Line. 

: 515 P 2064 2 FAO_("!22* Global Buffer Count = 'U 

: 316 065 .OUTPUT_RECATTRIFATSW eae): 

: 310 066 Heiourn F ILECHARCF CHS$V_CONTIGB ! If contiguous best try, 

: 519 068 Conti uous-bes t-try’) 

3 9 06 Adi tr OuTbUT FILECHARCFCHSV_CONTIG) ! If file is contiguous, 

; g O71 Conti uous 

; 1 If OUTPUT’ _F ILECHAR YEusi_LocKED? ! If file is access locked, 
3 526 207 THEN 


| 
| 


an 


J 
e set 16-Sep-1984 00:06:23 VAX-11 Bliss<-32 V4.0-742 P 0 
NG = format full Listing aaa 1 90:96:67 DISKSVMSMASTER: (BACKUP. SRCILIST.B32:1° > (33 


FAO_(", Locked"); 
EOL_(); 


_—< 


a 
T 


FISISIS 
uw 


DUAR — Soo NO 


: Format ninth Line. 


FAO.(" Record format: "); 
SELECTONEU .OUTPUT_RECATTRCFATS$SV_RTYPE] OF 
FATSC_FIXED]: FAO_ ("Fixed Length !UL byte records’, 
“OUTPUT _RECATIREFATSW_RSIZEI) ; 


PEATSC VARIABLE: FAO_(‘Variable length”); 
FATSC_VFCJ: FAO_(°VFC, !UL byte header’ 

OUTPUT _RECATTRLFATSB_VFCSIZEI); 
FATSC_STREAM): FAO_('Stream'); 


FATSC_STREAMLFJ: FAO~('Stream_Lf'); 
FATSC_STREAMCR]: FAO~("Stream-CR'): 


OTHERWISE): FAO” ("Unkno 
TES; ‘ 


-OUTPUT_RECATTREFATSV_RTYPE] NEQ FATSC_FIXED AND  '! If not fixed Length, 
y OUTPUT-RECATTREFATSU-MAXREC] NEQ 0 


co FAO. maximum !UL byte!%S*, .OUTPUT_RECATTRCFATSW_MAXREC)); 


LUPUPUSUDU IVS SUSVSUSUS USSU ISTITUTO 


bt ket yay yt eae ent tat at telat AT 
os 
owoovuowo 
SoUaNO zg 


FAO_(" Record attributes: '); 
IF {OUTPUT _RECATTREFATSV_IMPLIEDCC] 


Ooooooc[eo 


va .8 Corrie return’) 
Use IF .OUTPUT_RECATTRCFATSV_FORTRANCC) 


OSS ete ot ween WhO” 


AXA 


wr 


FAO_("Fortran corr loge srtret) 
FUSE IF .OUTPUT_RECATTRLFATSV_PRINTCC) 


N 
FAO_("Print file format"); 


4 OUTPUT RECATTREFATSS _RATTRIBI EQL FATSM_NOSPAN 
ms FAO_("Non=spanned’ ) 
-OUTPUT_RECATTREFATSV_NOSPAN] 
FAO_(°, Non-spanned'); 


SING OOO O 
SSISVSARANLSSEISAF 


If _,OUTPUT_RECATIRCFATSB_RATTRIB] EL 0 
FAO_('"None'); 


: I 
: Format tenth Line. 


FUPVPULULULUSDVSUSPUSUDULUSUSEST SUSI SITIO 
RIPIPIPOPIPINIPINIPOASPONIPINIASPYININPIPINPIPUNIAININPIAINININININUNR) 
a a a a ek ek et ee ed ed ed ed ed td od od od od 


WhORoRofOPoRonONonuhn) 3 3 oe 


& 


K 14 
16-Sep-1984 


set :06:23 VAX-11 Bliss-32 V4.0-742 P 1 
G = format full Listing 14-Sep-1984 99:09:82 DISKSVMSMASTER: CBACKUP. SRCILIST.B32;1— é 


6) 


eASCII \_Extend = !UL\ 
P. : ASCII <2>\, \ 
P.ABC: .ASCII <8>\maximum \ 
P. : ASCII <17>\bucket size = 'UL\ 
e II <30>\!22* Global Buffer Count = !UL\ 


Qala SFESmamF 


P.ABF: .ASCII <21>\, Contiguous-best-try\ 


3 41 1 3 OOS P.AAH: .ASCII <3>\!AS\ : 

g 2A 32 ; 1 05 OQOOE7 P.AAI: .ASCII at \ 3 

0 41 1 1 OOED P.AAJ: .ASCII <6>\!21AS \ : 
0 3A 65 4 § 3 OOF4 P.AAK: .ASCII \(Size: 'MUL/'A<'UL!> Created: !17%\ ; 
§ $0 Gk bt 8S FE EF boig3 ; 
44 O011C eASCII \D\ : 

GF ¢9 2A 3 32 4 8 bese P.AAL eASCII \C!22* Owner: C!30w, !30w] Revised:\ ; 
$f oF ¢] B 20 31% 3 
= eee ASCII \.\ 

20 65 GE 6F 4E Hs i B51 88 P.AAM: ASCII <16>\<None specified>\ : 
20 44 25 37 31 21 OB 00157 P.AAN: .ASCII <11>\!17%D (!UL)\ : 
46 20 2A 2 2 1 B 00163 P.AAO: .ASCII \4!22* File ID: !14<C!UL,!UL,!UL)!> Expir\ ; 
RUSE HBT ae ; 
20 gh 33 65 00188 ASCII \es: \ ; 

20 65 6E 6F 4E HS be Boge P.AAP: .ASCII <16>\<None specified>\ : 
4b 35 3731 3 05 QO1AO P.AAQ: ASCII <S>\!172D\ ; 

42 20 2A 36 34 1 O& OQO1A6 P.AAR: .ASCII <14>\!46* Backup: \ : 
61 62 20 6F 4E ; } 3918? P.AAS: .ASCII <16>\<No backup done>\ : 
44 25 37 31 21 §2 Q01C6 P.AAT: .ASCII <5S>\!172%D\ : 

§ gf $3 36 ee oe ig pat ce P.AAU: .ASCII <22>\ File protection: \ : 
§ ; 2 rt 20 $9 i a0tes P.AAV: .ASCII <22>\ File organization: \ ; 
6— 65 7 1 65 53 OA Soira P.AAW: .ASCII <10>\Sequential\ : 
69 74 61 6C 65 3 25 Ops: P.AAX: .ASCII \%Relative, maximum record number = !UL\ : 
3 $? 2 > $5 $3 88 b0528 ; 
6 8 65 64 6E 49 O07 0092 P.AAY: .ASCII <7>\Indexed\ : 
77 ~«+6F #«6E " g 33 \e 00 33 P.AAZ: .ASCII <18>\Unknown type = !UL\ F 
65 6C 69 46 ¢ $5 Se 60 2 P.ABA: .ASCII \4 File attributes: Allocation = !UL.\ : 
§ $f 0 3A 65 74 0025 3 
D 20 § 6F 69 00 : 

4 45 20 00 Z 

20 2c § 0 3 

#5 62 11 00 

4 8 21 0 ; 

32 «21 . . : 

65 66 6 3 

4 : 3 

Re EB | 

i : 0 : 


=~ ~N 
o 
m 
oa 
vw 
SOoFfO WOU OCoOmMTouUm 
Sssssssssss 


OOn 


P.ABG: .ASCII <12>\, Cont tquous\ 
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LIST List @ save set 16-Sep-1984 00:06:23 VAX-11 Bliss<-32 V4.0-74 P 
‘bbe 000 FULL_LISTING = format full Listing 1 =3007 1382 90:06:83 WEKSUMGHASTER BACKUP SRCILIST.B32:1° 7" BS 
61 6D 72 6F 66 20 64 3 F ; 5 ; 30 6 9 Es P.ABI: .ASCII <22>\ Record format: \ : 
al 7 $8 o 44 $ if éc p r ; 4 ze 3 8 fs P.ABJ: .ASCII <29>\Fixed Length !UL byte records\ : 
74 67 6E 65 6C 20 65 6C 62 61 69 5 61 56 4 9 19 P.ABK: ASCII <15>\Variable Length\ : 
20 65 74 79 62 20 4C 55 21 2 2¢ 43 46 6 if 9 ‘ P.ABL: .ASCII <20>\VFC, !UL byte header\ : 
6D 6 $2 $ 4 ; 6 00 4 P.ABM: .ASCII >\Stream\ ; 
46 4 F 6D 61 65 72 74 9 00545 P.ABN: .ASCII <9>\Stream_LF\ 3 
52 43 SF 6D 61 65 72 7% 9 4— P.ABO: .ASCII <9>\Stream-CR\ : | 
4 6E 69 66 65 64 6€E 9 59 P.ABP: .ASCII <9>\Undefined\ : 
3 20 65 70 79 74 20 6E 77 6F 6E 68 E 3 j 9 $ P.ABQ: .ASCII <18>\Unknown type = !UL\ : | 
20 4C 55 21 20 6D 75 6D $9 g H $0 0 5 | 00376 P.ABR: ASCII <21>\, maximum 'UL byte!%S\ : 
69 72 74 74 61 20 64 ue of Hy $3 53 ? $0 8 00395 P.ABS: .ASCII <22>\ Record attributes: \ : 
72 75 74 65 72 20 65 9 61 69 72 72 61 43 a 0088 P.ABT: .ASCII <15>\Carriage return\ ; | 
61 69 72 72 61 63 20 $f 1 72 74 72 6F 46 1 508B8 P.ABU: .ASCII <24>\Fortranm carriage control\ : | 
6C 6F 72 74 6EF 6F 63 20 65 67 0032 : | 
72 6F 66 20 65 6C 69 66 20 74 6E 69 fe 20 i b93c¢ P.ABV: .ASCII <17>\Print file format\ : | 
64 65 6E 6E 61 70 73 2D 6E 6F 4E OB O3DE P.ABW: .ASCII <11>\Non=spanned\ : 
64 65 6E€ 6E 61 70 73 2D 6E 6F 4E 20 2C OD OO3EA P.ABX: .ASCII <13>\, Non-spanned\ 3 
65 6€ 6F 4E 04 O03F8 P.ABY: ASCII <4>\None\ : 
003C 00000 FULL_LISTING: | 
55 FBFD CF 9E 90002 MOVAB LIST_FAO, R : 
54 00000000" EF 9E 0000 MOVAB OUTPOT_RECATTR+1, R4 F 
53 07 Ad 10 9C 0000 ROTL #16, OOTPUT_RECATTR+8, BLOCKS 3 1941 
A4 B85 0001 TSTW OUTPUT_RECATTR+12 > 1942 
06 12 00016 BNEQ 1 : 
53 D5 00018 TSTL BLOCKS : 
0¢ 13 QOO1A BEQL 1$ : 
53 p7 O001C DECL BLOCKS : 1943 
0001869F  8F 35 pi 20038 1$ CPL BLOCKS, #99999 ; 1949 
0001869F  8F 48 A& 01 000 CMPL UTPUT_ATTBUF +92, #99999 : 1950. 
05 iF} 09 F BLE : 
52 A 00 00031 28: MOVL #10, DIGITS > 1952 
03 11 000 BRB 4 : 
52 05 DO 00036 3$: MOVL #5, DIGITS : 1954 
1 EF Ad 81 0039 4$: CMPW TPUT_FILENAME, #21 ; 1959 | 
17 1B 0003D BLEQU : 
EF AG OF 0003F PUSHAB OUTPUT_FILENAME 3 1962 | 
FCAO cf 9F 00042 PUSHAB AH 3 
3 FB 00046 CALLS ue, LIST_FAO F 
30 =—AS 00 FB 00049 CALLS #0, LIST_EOL > 1963 | 
FC99«OCRCOCOS 0040 PUSHAB P.AA + 1964 
1 fe 51 CALLS #1, LIST_FAO ; 
A 11 00054 BRB : 1959 | 
EF Ad 9F 00056 5$ PUSHAB OUTPUT_F ILENAME : 1967 | 


Reon 
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LIST List a save set 16-Sep-19 06:23 VAX-11 Bliss-32 V4.0-742 P 3 
| ¥02-000 FULL_LISTING = format full Listing 1enee= ihe PRMSss | Webi stea ek eeoe Secaurst.032:5° «as 
FC93) CEOS 9 SH : 
65 65 FB 098 CALLS #2, LIST_FAO : 
1F AG OOF 6$: PUSHAB OUfPUT_ATTBUF +4 : 1973 
4B A& DD 0006 PUSHL OUTPUTATTBUF +9 : 
52 0D 066 PUSHL DI ; | 
0c ee 0 PUSHR #*M<R2,R3> : 
FC89 «CF OOF «QO06A PUSHAB P. : 
65 6 FB O06E CALLS a6, LIST_FAO : | 

30 a5 0 FB 00 1 CALLS LIST~EOL t 1974 | 
7é 4F AG 3 075 MOVZ2WL OUTPUT_ATTBUF+96, -(SP) + 1981. 
7E 51 ad %3C 00079 MOVZWL OUTPUT-ATTBUF +98, -(SP) : | 

FCOR «6OCCEOOF 0070 PUSHAB : | 
- o7 ohh. DS boos Fonts a3, LIST IFA, 56 : 1983 
+ . | 
09 12 09087 BNEQ 7$ ~*~ : 
FCBC CF 9F 00089 PUSHAB P.AAM + 1985 | 
65 01 Fe 90080 CALLS He LIST_FAO : | 
7€ 61 AG 3C $0092 7$ MOVZWL OUTPUT_ATTBUF+114, -(SP) ; 1989 | 
27 Aa «OF 00096 PUSHAB OUTPUT~ATTBUF +56 : 

FCBD CF 9F 00099 PUSHAB P : 
65 63 FB 00090 CALLS #3, LIST_FAO ; | 

30 AS 00 FB OOOAO 8$ CALLS #0. LIST7EOL + 1990) 
7€ Ad 9A O00A4 MOVZ2BL OUTPUT_ATTBUF+84, -(SP) > 1998) 
7E 41 AG 3¢ 0008 MOVZWL OUTPUT“ATTBUF +82. -(SP) : 
50 3F §=6Aaa «3C OOOAC MOVZWL OUTPUT“ATTBUF +80. RO : 
51 A4 9A 00080 MOVZBL OUTPUT~ATTBUF+85, R1 : 

51 51 10 78 00084 ASHL 16, RT, R1 3 
6140 9F 00088 PUSHAB (R1SCROJ : | 
FCA? CF 9F OO00BB PUSHAB P.AA : | 
65 04 FB 000BF CALLS #4, LIST_FAO : 
2F Aa COS d90¢¢ TSTL § OUTPUT_ATTBUF +64 + 2000) 
09 12 000C¢ BNEG 9$ : 
FCC? CF 9F 000C7 PUSHAB P.AAP : 2002, 
65 01 FB 000CB CALLS #1, LIST_FAO : 
OA 11 000CE BRB : | 
2F Ad OF 00000 9S: PUSHAB OUTPUT_ATTBUF +64 : 2005 
FCCC «CF 9F 00003 PUSHAB PAA a at 
65 02 FB 00007 CALLS 3, LIST_FAO : 

30 AS 00 FB 900A 10$: CALLS #0, LISTEOL + 2006 | 
7 43 Aa 9A 0000 MOVZBL OUTPUT_ATTBUF+84, -(SP) > 2014 | 
7E 41 AG 3¢ O0E MOVZWL OUTPUT“ATTBUF +82. -(SP) : 
50 3F «6 Aa«3C «OO0E MOVZ2WL OUTPUT“ATTBUF +80, RO : 
51 44 AG OOM QOEA MOVZBL OUTPUT“ATTBUF+85, R1 F 

51 51 10 78 OOOEE ASHL 16, RT, RI : | 
6140 9F O00F PUSHAB (RISCROS : 
FCBO CF 9F O00FS PUSHAB P. : 
65 4 FB 00F9 CALLS #4 LIST FAO ; 

37 Aa OD OOF” TSTL  OUTPUT_ATTBUF+72 > 2016 
09 12 OOOFF BNEQ 118 F 

FCB3 «OCF OF 0101 PUSHAB P.AAS : 2018 
65 01 FB 00105 CALLS #i, LIST_FAO ; 
OA 11 1 8 BRB : 

37 AG OF OO10A 11$:  PUSHAB OUTPUT_ATTBUF +72 > 2021 | 
65 com 4 6192 CALS. a F LIST FAO 

30 AS 86 FB 00114 12$: CALLS a. LISTEOL > 2022 


N 
LIST List a save set 16-Sep-19 06:23 VAX-11 Bliss-32 V4.0-742 P 4 
Vb2-000 FULL_LISTING = format full Listing 1o-808-1382 90:06:83 DISKSVMSMASTER: (BACKUP. SRCILIST.B32:1->" rst 
FCB3 «CF OOF 00118 PUSHAB P.AAU : 2027 
1 FB OO1IC CALLS =i 1s! FAO : 
44455752  8F pp 11F PUSHL  #1145395026 : 2028 
7 5D AG O3C «(00125 MOVZWL OUTPUT_ATTBUF+110, =(SP) : 
0080 C 02 FB 00129 CALLS #2, LIST_PROTECTION : 
A FB 001 5 CALLS #0, LIST~EOL : 3029 
FCBO «OCF OOF «(001 PUSHAB P.AAV : 
65 1 FB 001 CALLS #1, LIST_FAO : 
52 FF AG 4 4 FE 4 EXTZV #4, #4, DUTPUT_RECATTR, R2 3 3033 | 
06 12 0013F BNEQ «13 + 2037 
FCB8 3CF OF 00141 PUSHAB P. AAW : 
18 11 0149 BRB 15$ : | 
01 52 0100147 13$:  CMPL 2, #1 + 2038 
OA 12 O014A BNEG 14$ : | 
7E OF AG 3C O014¢ MOVZWL OUTPUT_RECATTR+16, -(SP) : 2039 
FCB4 }46CF «OF 0015 PUSHAB P.AAX : 
14 11 00154 BRB 17 : 
02 52 01 00156 148:  CMPL 2, #2 + 2040 
09 12 99139 BNEQ 168 : | 
FCCF CF 9F 00158 PUSHAB P.AAY : 
65 01 FB 0015F 15$: CALLS #1, LIST_FAO : | 
09 11 00162 BRB 18$ ; | 
52 DD 00164 16$:  PUSHL R2 > 2042 | 
FCCC «CF OOF 00166 PUSHAB P.AAZ : 
65 02 FB OO16A 178: CALLS #2, LIST_FAO : | 
30 «AS 00 FB 0016D 18$: CALLS #0, LIST™EOL + 2044) 
7E 11 AG 3C 00171 MOVZWL OUTPUT_RECATTR+18, -(SP) > 2051, 
4B A& DD 00175 PUSHL OUTPUT~ATTBUF +92 : 
FCCD CF 9F 00178 PUSHAB : 
65 03 FB 0017C CALLS #3, LIST_FAO ; 
OD Ad 95 OOI7F TSTB © QUTPUT_RECATTR+14 > 2052 
21 13 00182 BEQL 20S F 
FCF6 CF 9F 00184 PUSHAB P.ABB : 2055 
65 01 FB 00188 CALLS #1, LIST_FAO F 
02 FF AG 04 04 ED 00188 CMPZV #4, #4, OUTPUT_RECATTR, #2 : 2056 | 
07 12 90191 NEQ 19§ : 
FCEA CF 9F 00193 PUSHAB P. ; 
65 01 FB 00197 CALLS #1, LIST_FAO : 
7E 0D A4 9A 0019A 19$:  MOVZBL OUTPUT_RECATTR+14, -(SP) > 2057) 
FCES CF 9F 0019 PUSHAB P. F 
65 08 FB OO1A CALLS ae, LIST_FAO : 
30 «5 00 FB OO1AS 20$: CALLS #0, LISTEOL : 2059 
7E 13 A& 3C 001A9 MOVZWL OUTPUT_RECATTR+20, =(SP) > 2065 | 
FCEB «CEO O1AD PUSHAB : | 
65 02 FB 00181 CALLS He. LIST_FAO : | 
06 53 Aa 0 gt 0184 C #5, OUTPOT_FILECHAR, 218 + 2066 | 
FCFE CF 9F 00189 PUSHAB P.ABF > 2068 
09 11 9180 BRB 22$ : | 
53 A&4 95 OO1BF 21$:  TSTB QUTPUT_FILECHAR : 2069 
07 18 Qice BGEQ $ : 
FDO9 «CF:OCOSF:«OOIC USHAB P.ABG > 2071 
65 01 FB 001C8 328: CALLS #1, LIST_FAO : 
07 53 AG 06 gt 1(B 23$: BBC #6, OUTPOT_FILECHAR, 24% > 2072. 
FDOA CF 9F 00100 PUSHAB P. > 2074 
65 oi FB 001D4 CALLS #1, LIST_FAO : 
30 «AS 0 FB g107 248: CALLS #0, LISTTEOL > 2075 
FDO8 CF 9F 001DB PUSHAB P.ABI > 2080 


15 
List a save set 16- -Sep-1984 3 VAX-11 Bliss-32 V4.0 
Fue LLISTING = format full Listing 14 =Sep- 1382 9: 96: gi DISKSVMSMASTER: a backup” Saciuist. B32:1 
65 1 FB OO1DF CALLS #1, LIST_F 
fF 8 Ab oe p EF oles EXTZvV #0, #4, output LRECATTR, R2 
1 D1 OO1E CMPL #1 
A 12 OiEB BNEQ 2 
7E 01 AG 3¢ 10 MOV?WL OUTPUT_RECATTR+2, =(SP) 
FD09.SCRCOCOP> OrFl PUSHAB P.ABJ 
de 11 IFS BRB 33$ 
02 52 D1 OO1F7 25$ CMPL = R2, #2 
06 12 OO1FA BNEG 26$ 
FDIC «=6CF OOF «<QOTFC PUSHAB P.ABK 
8 11 00200 BRB 31$ 
03 D] 0208 26$ CMPL Re #3 
0A 12 00 BNEG 27$ 
7E OE AG OA 9207 MOVZBL OUTPUT_RECATTR+15, -(SP) 
FDID CF 9F 00208 PUSHAB P.ABL 
34 11 0020F BRB 33$ 
04 2 D1 00211 278 CMPL = R2, WG 
06 12 00214 BNEG 28$ 
FD27 «CFO 00216 PUSHAB ©.ABM 
1E 11 OO2TA BRB 31$ 
05 52 D1 0021C 288 CMPL =sR2, #5 
06 12 O021F BNEG 29$ 
FD23. CF OSF: «00221 PUSHAB P.ABN 
13° (11 d0ges BRB 31$ 
06 52 D1 00227 29 CMPL =e R2, #6 
06 12 0022A BNEG  30$ 
FD22. CF OOF d0g¢¢ PUSHAB P.ABO 
08 11 00230 BRB 31$ 
52 D5 00232 308 TSTL Re 
09 12 00234 BNEQ 32% 
FD22 «CFO 00236 PUSHAB P.ABP 
65 01 FB OO23A 31$: CALLS #1, LIST_FAO 
09 «11 00250 BRB 348 
52 DD 0023F 328 PUSHL Re 
FD21. CF OF 00241 PUSHAB 
65 02 FB 00245 33$ CALLS on oP st 
FF oad 04 98 ED 00248 34$ CMPZV #0, #4, ButeuT LRECATTR, #1 
10 13 0024E BEQL 
OF A4 B Ose TSTW TPUT_RECATTR+16 
0B 1 00 5 BEQL 
7E OF A& 3C 0025 MOVZWL gurpuT _RECATTR#16, ~(SP) 
FDIC }=6CR OF «00259 PUSHAB 
65 02 FB 00250 CALLS » LIST_FAO 
30 «AS 00 FB 0 60 35$: CALLS ; LISTEOL 
FD27 cr OF 4 PUSHAB 
65 1 FB 0 68 CALLS vi, 
06 64 01 EI 68 BBC bt ePOT. ARECATTR¢1, 36$ 
FD33. «CF OOF «00 of PUSHAB 4 "p59 
11 11 00 3 BRB $ 
06 64 £9 0275 36$: BLBC = OUTPUT_RECATIR+1, 37$ 
FD3A CF 9F 00278 PUSHAB P.ABU 
8 11 0027¢ BRB gs 
07 64 2 g 0 7E 37$: BBC #2, OUTPUT_RECATTR+1, 39S 
FD49 cf F PUSHAB P. 
65 1 Fe 0 8$: CALLS #i, LIST_FAO 
8 64 9 6 9 39$: CMPB QUAPUT _RECATTR«1, #8 
6 12 C BNEQ 40$ 


LIST List a save set 
¥b2-000 FULL_LISTING = format full Listing 
FD4F tt 
65 64 
Be 
7 
FD54 =F 
6 1 
30 3 =6AS 0 
30 = AS 0 
: Routine Size: 691 bytes, Routine Base: CODE + O3FD 


O77 1O—o7.0mMm—.0 
FOWD OUND moon 


fee lejololelolelololelo) 


Orrrr>r 000000 


NMS NW Mole rm 


16- 15 


Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-74 
maa ra ts Sa SH 
PUSHAB P.ABW 
BRB 4j 
40$: BBC #3, OUTPUT_RECATTR+1, 42$ 
PUSHAS P.A 
41$: CALLS #1, LIST_FAO 
42$: TSTB OyfPUT_RECATIR«1 
NEQ 43$ 
PUSHAB P.ABY 
CALLS #1, LIST_FAO 
43$: CALLS #0, LISTIEOL 
CALLS #0, LISTIEOL 


2 
TER: CBACKUP. SRCILIST.832; 479 


d 


LIST List a save set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Page 27 
v04-000 LISTLONE_RECORD = List save set record 13-38-1382 90:06:¢? DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 ° 3 
$ 288 134 1 ZSBITL "LIST_ONE_RECORD = List save set record’ 

: ff : 5 ! ROUTINE LIST _ONE_RECORD(REC,BCB): L_P$ NOVALUE= 

: §89 1 : 1 144 

3 $89 138 1! 

; 591 139 1 ! FUNCTIONAL DESCRIPTION: 

: 236 1 } } This routine Lists the contents of one save set record. 
: $94 148 1 | INPUT PARAMETERS: 

3 399 143 1! REC - Pointer to save set record. 

3 239 Veg : } BCB - Pointer to BCB for buffer. 

: 338 146 1 | IMPLICIT INPUTS: 

; 599 a NONE 

; 600 148 1! 

; 601 149 1 ! OUTPUT PARAMETERS: 

; o0¢ i; oe NONE 

; 60 2151 1! 

3 604 $128 1 ! IMPLICIT OUTPUTS: 

3; 605 2155 1! NONE 

; 606 2154 1! 

3; 607 2155 1 ! ROUTINE VALUE: 

: 608 2156 1! NONE 

3; 609 tur 34 

; 610 158 1 ! SIDE EFFECTS: 

3 611 189 1! The Listing is produced. 

3 ol¢ 160 1! 

; 61 $18) 1 !-- 

3 614 166 1 

3 ot? $167 § BEGIN 

: 617 are: 2 LITERAL 

; 618 2166 § DEVTYP_BUF_LEN = 6 ; 

3; 619 2167 

; 620 2168 2 MAP 

3; 621 2169 2 REC: REF BBLOCK, ! Pointer to save set record 
: 622 2170 2 BCB: REF BBLOCK; ' Pointer to buffer control block 
: 623 2171 2 L_DECL; 

: 858 $158 5 

; 626 2174 2 CASE .RECCBRHSU_RTYPE] FROM BRHSK SUMMARY TO BRHSK_FID OF 

: Sse $199 

; 630 $178 CBRHS$K_VBN, BRHSK_LBN, BRHSK_FID, OUTRANGE): 

3: 631 179 0; 

3 66 ; 180 

3s 65 181 

3; 634 1 § CBRHSK_SUMMARY): 

3; 635 1 BEGIN 

3 636 184 LOCAL 

3; 63 185 VOLNUM; 

; 638 136 

; 633 188 GET_SUMMARY_ATTRIBUTES(.REC); 

> 641 189 VOLNUM = .BBLOCKC.BCBCBCB BUFFER], BBHS$W_VOLNUM): 

; $22 190 IF “QUAL CQUAL__OSAV THEN JOLNUM = .RWSV_JOL_NUMBER; 


15 
List a save set 15. S$ep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 e 28 
LIST_ONE_RECORD = List save set record 1-Sep-19 4 90:96:27 DISKSVMSMASTER: chateur. SRCILIST.832;1 429 (3 
; $43 191 IF .VOLNUM GTRU 1 THEN EOL_(); 
3 649 198 IF ,BBLOCKCOUTPUT _ATTBUFLBSR_SSNAME], DSC$W_LENGTH] NEQ 0 
; ges 195 4 BEGIN 
; 648 P 196 4 FAO_('Save 'AD', 
: 649 P 2197 4 ~ BBLOCK SuTPUT -ATTBUFEBSR_s SNAME], DSC$W_LENGTH) 
; 650 198 4 -BBLOCKCOUTPUT-ATTBUFCBSR-SSNAME], DSCSA_PO INTERD); 
3 651 199 4 IF .VOLNUM GTRU 1 THEN FAO_('> volume !UL', <VOLNUM) 
3 $26 39 4 EOL_(); 
3 ee? 4 3 
; 635 08 emma scot cy ett DSC$W_LENGTH] NEQ 0 
; 657 05 4 
3; 658 P 2206 4 FAO_ te BM apht ». by: ‘AD’ 
3: 659 P 2207 4 LOCKCOUTPUT ~arrput ts BSR’U SERNAME], DSC$W_LENGTH) 
3 660 208 4 ‘BBL OCKCOUTPUT~ATTBUF CBSR-USERNAMEJ, DSCS$A-POINTER)); 
: 661 09 4 EOL_ 
; 66¢ 10 3 END: 
; 66 2211 3 
: 664 gel¢ 3 IF .OUTPUT_ATTBUFCBSR_USERUIC] NEQ 0 
> 665 21 3 THEN 
: 666 2214 & BEGIN 
; 667 P 3219 4 FAO_("UIC: C!0B,!08)' 
: 668 P : 16 4 * (OUTBU T_ATTBUF CBSR_USERUIC])<16,16>, 
: 669 217 4 . (OUTPUT_ATTBUF CBSR-USERUICJ)<0, 16>): 
: 670 2218 4 EOL_0); 
: 671 2219 ND? 
3 67 3220 
: 67 2221 IF .(OUTPUT_ATTBUFCBSR_DATE]) NEQ 0 
: 674 $23¢ THEN 
: 675 223 & BEGIN 
: 676 P 2224 4 FAO_('Date: 12D", 
: 677 2225 4 OUTPUT _ATTBUF CBSR_DATEJ); 
; 678 $359 4 3 
: 679 227 : 
; 680 228 
: 681 309 IF .BBLOCKCOUTPUT_ATTBUFCBSR_COMMAND], DSC$W_LENGTH] NEQ 0 
; 68 é 3 THEN 
; 2 $53) 4 OE CAL 
i 86s of LENGTH, 
; ons $34 4 ITERAL 
; 688 336 4 CHUNK_SIZE = LIST_SIZE - 19; 
3; 690 238 4 LENGTH s = SBBL SER SUTBU ATTBUF LBSR COMMAND], DSC$W_LENGTH); 
> 691 39 4 ADDRESS = .BBLOCKCOUTPUT_ATTBUFLBSR_COMMAND), DSCS$A_POINTER); 
3 63 +9 4 WHILE | AhENSTn GT 
: 6% 4e IF LENGTH E EOL, zBBLOCKCOUTPUT -ATTBYFCBSR_ COMMAND], DSC$W_LENGTH) 
i 696 4a ELSE AOR 1890 7); 
: 69 P 2245 FAO_( 
3 rt ~" ener 


$3 
33 
vo 


“ADDRESS); 
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LIST List a save set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Page 29 
v04-000 LIST_ONE_RECORD = List save set record 1o-ge8= 1382 90:96:¢7 DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 ° 3 
i 4 EOL_(); 
: 701 4 LENGTH = .LENGTH = CHUNK_SIZE; 
=. : ADDRESS = .ADDRESS + CHUNK_SIZE; 
; 70 1 4 END; 
3 eye 26 END; 
, 7 54 IF .OUTPUT_ATTBUFCBSR_OPSYS] EQL BACKUPSK_OPSYS 
; 707 55 THEN 
; 708 2 4 BEGIN 
3; 709 4 Fg ting system: VAX/VMS'); 
; £10 28 4 IF [BBLOCKCOUTPUT_ATTBUFCBSR_SYSVERJ, DSC$W_LENGTH] NEQ 0 
3 ne P 2260 4 FAO_(" version !AD', 
. P 2261 4&4 -BBLOCKCOUTPUT_ATTBUFCBSR_SYSVER], DSCS$W_LENGTH) 
3; 714 66 4 -BBLOCKCOUTPUT_ATTBUFCBSR_SYSVERJ, DSCS$A~POINTER); 
: 715 36 4 E0L_(); 
a i a 
s 718 366 IF .BBLOCKCOUTPUT_ATTBUFCBSR_BACKVER], DSC$W_LENGTH] NEQ 0 
3; 719 $e THEN 
3; 720 68 4 BEGIN 
: 721 P $83 4 FAO_("BACKUP version: 'AD', 
; r3¢ P 2270 4 -BBLOCKCOUTPUT _ATTBUF [BSR_BACKVER], DSC$W_LENGTH 
: 72 ge7t 4 ;BBLOCKCOUTPUT—ATTBUF CBSR-BACKVER], DSCSA_POINTERI); 
: 724 si¢ 4 EOL_(); 
s 725 e7 END; 
3; 726 274 
; 727 275 IF .OUTPUT_ATTBUFCBSR_SIRJ NEQ 0 
3; 728 $76 THEN 
3; 729 2e7? & BEGIN 
; 730 P 2278 4 FAO_('CPU ID register: !XL", 
; 731 2279 4 .OUTPUT_ATTBUFCBSR_SIRJ); 
; r36 280 4 até 
Bo Be , 
s 735 $B IF .BBLOCKCOUTPUT_ATTBUFCBSR_NODENAME], DSC$W_LENGTH] NEQ 0 
3 738 ssee THEN 
gs ar 285 4 BEGIN 
: 738 Pp $508 4 FAO_("Node name: 'AD', 
; 739 P 2287 4 .BBLOCKCOUTPUT_ATTBUF (BSR. NODENAME], DS¢$W_LENGTH] 
: 740 3288 4 “BBLOCKLOUTPUT—AT TBUF LBSR-NODENAME], DSCSA-POINTERS); 
i fe 5350 ; 
> 764 % IF .BBLOCKCOUTPUT_ATTBUFCBSR_DRIVEIDJ, DSC$W_LENGTH] NEQ 0 
3; 745 9 THEN 
: 76 94 & BEGIN 
3 74 P 2295 4 FAO_('Written on: 'AD', 
; 748 P 38 4 -BBLOCKCOUTPUT_ATTBUF Boh one 18). DSCS$W_LENGTH) 
; 149 44 4 “BBLOCKCOUTPUT-ATTBUFLBSR-DRIVEIDJ, DSCSA-POINTERS); 
3 751 99 3 
: 23g 0 
as 1 IF -OUTPUT_ATTBUF CBSR_BLOCKSIZEJ NEQ 0 
3; 754 4 THEN 
3 755 4 BEGIN 
3; 756 P 2304 4 FAO_("Block size: wm’. 
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18500-1984 00:06:83 eee Bliss-32 V4.0-742 


- list save set record 14-Sep-19 ISKSVMSMASTER: CBACKUP 
.OUTPUT_ATTBUF CBSR_BLOCKSIZE)); 
EOL_(); 


END; 
IF .OUTPUT_ATTBUFCBSR_XORSIZE] NEQ 0 
THEN 


BEGIN 
FAO_('Group size: 'UL' 
OUTPUT _AT TBUFCBSR_XORSIZE); 
EOL_(); 
END; 
If |, OUTPUT AT TBUF CBSR_BUFFERSJ NEQ 0 
BEGIN 
FAO_("Buffer count: TUL’ 
. OUTPUT_ATTBUF C8SR_BUF FERS); 
ENDE 


Fre ft OER OS NEQ 0 
BEGIN 


EOL_(); 
FAO ("Image save of volume set’); 
EOL_(); 


If .BBLOCKCOUTPUT_ATTBUFCBSR VOL SETNAM] DSC$W_LENGTH] NEQ 0 
THEN IF .(.BBLOCKCOUTPUT_ATTBUFCBSR_VOLSETNAM], DSCSA_POINTER])<0,8> GTRU 


-BBLOCKCOUTPUT_ATTBUFLBSR. VOLSETNAM], DSC$W_LE 
-BBLOCKCOUTPUT~ATTBUFCBSR-VOLSETNAM], DSCSA~PO 


FAO_(*Number of volumes: !UL’ 
.OUTPUT_ATTBUFLBSR_NVOLSJ); 
5; 


BEGIN 
FAO_("Volume set name:  '!AD‘ 
f NGT 
INT 


{fj POL OCRC OUTPUT ATTOUF ESR _CRWPTBATAD, BSASB_CRYPTYP] NEQU 0 


BEGIN 
FAO_("Saveset Encrypted’); 
EOL_Q; 
EOL_(); 

END; 


CBRH$K VOLUME J: 


GET_VOLUME_ATTRIBUTES(.REC); 
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FAO_("Volume attributes’); 
IF [OUTPUT_ATTBUFLVSR_RVNJ NEQ 0 


FAO_(* for relative volume !UL', .OUTPUT_ATTBUFCVSR_RVN)); 


pre: 'Zp' 
UTPUT_ATTBUF LVSR_VOLDATE)); 


END; 
FF {OUTPUT AT TOU CVSR SERIAL NEQ 0 


List 
LIST 
; 814 63 
: Re a4 
; i$ 65 
; 818 6 
; 819 6 EOL_0; 
; B21 $9 IF .OUTPUT_ATTBUFLVSR_VOLSTRUCT] NEQ 0 
; 8 ¢ 0 THEN 
; 8 71 4 BEGIN 
; 824 P ie 4 FAO_("Structure level: !UL' 
; 8 5 3 4 as , (OUTPUT ATTBUFLVSR_VOLSTRUCTI) <8 .8>) ; 
; £2) fe oe 
; 89 77 IF .BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSC$W_LENGTH] NEQ 0 
; 830 78 THEN 
; 831 79 4 BEGIN 
; Be P 80 4 FAO_("Label: 'AD', 
3 83 P 2381 4 -BBLOCKCOUTPUT_ATTBUFLVSR_VOLNAME], DSCS$W_LENGTHJ 
3 te 2353 ? -BBLOCKCOUTPUT—ATTBUF CVSR-VOLNAME], DSCSA-POINTERS); 
; $36 $80 ; END; 
; 838 386 IF .BBLOCKCOUTPUT_ATTBUFCVSR_OWNERNAMEJ, DSC$W_LENGTH] NEQ 0 
3 839 387 3 THEN 
; 840 388 4 BEGIN 
; 841 P 2389 4 FAO_( "Owner: 'AD', 
: Bae P 2390 4 -BBLOCKCOUTPUT_ATTBUFCVSR_OWNERNAME], DSC$W_LENGTH] 
: 84 391 4 -BBLOCKCOUTPUT—ATTBUFLVSR-OWNERNAME], DSCSA-POINTERS); 
3 845 395 ; 
; B46 334 
; 847 95 IF .OUTPUT_ATTBUFCVSR_VOLOWNER] NEQ 0 
3 848 396 THEN 
3 849 397 4 BEGIN 
; 850 P 3398 4 FAO_ ("Owner UIC: C!0B8,!0B)" 
; 851 P 2399 4 . (OUTPUT_ATTBUF CVSR_VOLOWNER])<16,16>, 
; 83¢ 00 4 . (OUTPUT AT TBUF LVSR—VOLOWNER])<0, 16>): 
; 85 01 4 3 
; 854 0¢ ; 
; 855 0 
: 856 IF ;, (OUTPUT _ATTBUFLVSR_VOLDATE3) NEQ 0 
; 836 4 BEGIN 
; 8 & FAO_("Creation d 
; 4 OuT 
: | 
s & 
5 4 
3 4 
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3 3 
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FAO_(*Volume protection: ‘); 
BST PROTECTI N(.OUTPUT_ATTBUFCVSR_PROTECTI, "RWCD'); 


mw 
Cowon 


FAO_( "Windows: 4 
a {QUTPUT ATTBUF LVSR_WINDOW)) ; 


IF, (OUTPUT_ATTBUF LVSR_RETAINMIN]) NEQ 0 


an on 


BEGIN 
FAO_("Minimum retention: !2D' 
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OUTPUT_ATTBUFLVSR_RETAINMIN)) ; 
EOL (3 
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; 871 41 
: if 4 4 3 IF_.OUTPUT_ATTBUFCVSR_VOLSIZEJ NEQ 0 
3; 87 421 THEN 
; 874 4 : 4 BEGIN 
; 875 P 24 4 FAO_('Total blocks: 'UL* 
i 87 age 4 *, QUTPUT AT TBUFLVSR_VOLSIZEI) ; 
2 me 
; P 2628 FAO_("Access count: wm". 
: B81 429 .OUTPUT_ATTBUF CVSR_LRU_LIMJ); 
; 88 4 9 E0L_0); 
: Hh P 24 é FAO_('Cluster size: tuL* 
; B85 4 . OUTPUT_ATTBUF LVSR_CLUSTER1); 
; B86 4 4 FOL_0); 
: 888 436 FAO_("Data check: "); 
3 889 43 IF T.OUTPUT_ATTBUFCVSR_VOLCHAR] AND HM2SM_READCHECK) EQL 0 
; 890 438 THEN FAO_('No '); 
; 891 439 FAO_('Read, *); 
; B9¢ 440 IF T.OUTPUT_ATTBUFCVSR_VOLCHAR] AND HM2$M_WRITCHECK) EQL 0 
3; 89 441 THEN FAO_('No ‘); 
3; 894 ri! (‘write’); 
: 344 Sit7 EOL” (); 
; 897 P 2445 FAO_("Extension size: 'UL* 
3 898 446 .OUTPUT_ATTBUF LVSR_EXTEND4); 
: 900 448 . 
; 901 seco FAO ("File prscres ven *); 
3 902 2450 LIST_PROTECTION(.OUTPUT_ATTBUFCVSR_FILEPROT?, "RWED'); 
3 st seg) EOL_0); 
: 90 P 3438 FAO_(*Maximum files: 'UL" 
; 906 454 .OUTPUT_ATTBUF LVSR_MAXF ILES)); 
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16-Sep-1984 00:06:23 
- List save set record 12-808-1 98 90:98:87 
UPLIT BYTE (ZASCIC A ' $8 
UPLIT BYTE (ZASCIC 'RZ01') ' 
T BYTE (ZASCIC "RZFO1'S) i 2% 


FAO_ ("Device 


aling wit 
om the UCB. 


AL 
LENGTH : 
BUFFER 


GI 

! If the Geytyp 
e t 
fr 


e: ‘Ac 
SbEVI Pest .BUTPUT _ATTBUFLBVA_DEVTYP32); 


IF .OUTPUT_ATTBUFCPVA_DEVTYP] GTRU Zx'FF* 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CBACKUP.SRCILIST.832; 


attribute is prester than 1 byte we must be 


he new form w 
This longword must now be decoded. 


LONG INITIAL (DEVTYP_BUF _LEN), 


: VECTORCDEVTYP_BUF_LEN,BYTE] ; 


ch is the longword MEDIA_ID 


DECODE_DEVTYP ( .OUTPUT_ATTBUFCPVA_DEVTYP], RENETH BUFFER, 


FAO_("Device oe , 'AF®, 


»LENGTH, 


COONOULSWN—O 
vw 
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wv 
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END ; 
IF OUTPUT _ATTBUF CPVA_SERIAL NEQ 0 
BEGIN 
FAO_("Serial number: ‘OL’ 
.OUTPUT_ATTBUF CPVA_SERIAL4); 
co: 


FF SCREEN ATTN PVR L AGEL, DSC$W_LENGTH] NEQ 0 


BEGIN 

FAO_("Label: 'AD', 
.BBLOCKCOUTPUT_ATTBUF PVA. LABE 
“BBLOCKCOUTPUT~ATTBUF CPVA~LABE 


fF: SUtOUT ATO CP WA PAM OEE) NEQ 0 


("Total blocks: ‘UL 
ay QUTPUT _ATTBUFCPVA_MAXBLOCK); 


ee 
—2 


GTH] 
NTERS); 


ff, BOLOCHEOUTPUT _ATTBUFLPVA_BASGL OED, DSCS$W_LENGTH] NEQ 0 


BEGIN 


List 

LIST 
ff 90 
3 182g 91 
3: 1044 3 
Weg 3 
: 19¢9 95 
3: 1048 38 
We 
‘wg 
3 1988 601 
> 1054 604 
ne 
; 1089 605 
> 1058 606 
1080 oo8 
: 1961 ati 
: 1088 eH 
: 1085 i$ 
3 1967 ge 
: 1069 617 
> 1070 618 
Wh 38 
: 1998 2621 
3 1074 $0¢ 
Be Be 
; 1977 sess 
> 1078 2626 
: 1079 627 
: 1080 2628 
+ 1082 rts 
: 1988 631 
: 1084 O35 
: 1085 63 
: 10 634 
> 1087 635 
: 1088 636 
: 1080 ret 
RS 
: 1998 641 
> 1094 64g 
199 rr 
+ 1097 3645 
: 1098 646 
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- List save set record 


BLOCKS = ROT(.OUTPUT_RECATT 
IF a bag RECATTRCFATSW_FF 


LOCAL P: REF VECTOR; 
P= BBLOCKCOUTPUT ATTBUFLPVA_BADBLOCKI, DSCSA_POINTER]; 


WHILE . 
-eBL O¢KOuTPUT_AT BUF PVA BADBLOCK], DSCSA_POINTER] + 


ss -BBLOCKCOUTPUT_ATTBUFLPVA_BADBLOCK], DSCSW_LENGTH] 


KCOUTPUT_ATTBUFCPVA_BADBLOCK], DSCSA_POINTER] 
og block numbers: ‘J 

19® °); 
}) 
HE 


Wi FAO_(* to !UL", .PLO) + .PE1) - 1); 


EOL_(); 
END; 


FILE]: 
IN 


BLOCKS; ! File size 


GET_FILE_ATTRIBUTES(.REC); 


LK], 16); 
AND .BLOCKS NEQ 0 


wow 
-=<m 
er be) 
ow 


THEN BLOCKS = .BLOCKS - 


IF QUAL CQUAL FULL 


FULL_LISTING() 


BEGIN 
ree F AUTRE OSC LENSE GTR 52 


ELSE 


BEGIN 
FAO_(* IAS", OUTPUT _F ILENAME) ; 
FAO-('!52e *); 
END 
ELSE 
FAO_(*!52AS*, OUTPUT_FILENAME) ; 


FAO_(°!98L !17%D", .BLOCKS, OUTPUT_ATTBUFLFAR_CREDATE)); 
END: 
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Be eee at ee aes Angra 


A 
ve set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 P 
RECORD = List save set record 14-§ et 90:96:¢7 DISKSVMSMAS TER: (BACKUP. SRCILIST.B32:1 >" FB 


73 30 $3 76 61 53 16 00680 P.ABZ: .ASCII <22>\Save set: 'AD\ : 
41 21 20 20 20 20 se O6BF 3 
75 of gf 8 C C Q06C7 P.ACA: .ASCII <12>\, volume 'UL\ : 
$3 ; $ § ‘ 18 $608 P.ACB: .ASCII <22>\Written by: 'AD\ : 
0 20 g, £3 49 (55 ¢ 006EB P.ACC: .ASCII <28>\UIC: C!08,!0B\ : 

1 58 0 20 20 20 OO6FA : 

0 3A 6 4 61 44 16 8 08 P.ACD: .ASCII <22>\Date: 'ZD\ : 

5 21 20 20 20 2 * 00717 3 

6— 61 8 4 20 33 3 Boose P.ACE: .ASCII <19>\Command: \ : 
20 sh $9 1 i 05 $0788 P.ACF: .ASCII <5>\!19# \ : 

44 41 1 03 00739 P.ACG: .ASCII <3>\!AD\ : 

74 61 72 65 70 4F 1A 007350 P.ACH: .ASCII <26>\0Operating system: VAX/VMS\ 3 
41 56 3! 20 a 6D 65 0074C : 
69 73 72 65 76 20 OC 00758 P.ACI: .ASCII <12>\ version !AD\ : 
50 55 48 43 41 42 16 00765 P.ACJ: .ASCII <22>\BACKUP version: 'AD\ 3 
41 21 20 9 ¢0 20 3A 00774 : 
44 49 20 0 43 16 goree P.ACK: .ASCII <22>\CPU ID register:  !XL\ $ 
58 21 20 20 20 3A 72 oe 3 
6— 20 65 64 6F of 16 00795 P.ACL: .ASCII <22>\Node name: TAD\ 3 
41 21 $0 20 3! ¢ 20 007A2 F 
65 74 74 69 72 57 16 OO7AA P.ACM: .ASCII <22>\Written on: 'AD\ 3 
41 21 20 20 20 20 20 00789 3 
3! $8 $3 $s $f 36 6 po fA9] P.ACN: .ASCII <22>\Block size: 'UL\ : 
3! 70 %3 of sf 8 00708 P.ACO: .ASCII <22>\Group size: 'UL\ : 
72 65 66 66 3 42 16 OO7EF P.ACP: .ASCII <22>\Buffer count: 'UL\ : 
55 21 eg 20 20 20 20 OO7FE 3 
$8 65 6 gl 6D 49 18 B88 P.ACQ: .ASCII <24>\Image save of volume set\ 3 
2 65 6D 75 6C 6F 76 0081 3 

65 6D 75 6C 6F 76 19 OO81F P.ACR: .ASCII <22>\Volume set name: 'AD\ : 
41 21 2 0 § A 65 0082E 3 
fe $3 6 f é i O84 P.ACS: .ASCII <22>\Number of volumes: !UL\ : 
65 4 é 6 rH 53 My O85 P.ACT: .ASCII <17>\Saveset Encrypted\ : 
65 6D 75 6C f 53 i 0085 P.ACU: .ASCII <17>\Volume attributes\ : 
ae 20 72 gf $6 eo 18 a87i P.ACV: .ASCII <24>\ for relative volume !UL\ : 
7 e3 23 g 4 5 i BBA P.ACW: .ASCII <22>\Structure level: 'ULN : 
3A ‘i 6 $ 1 4c 16 oe P.ACX: .ASCII <22>\Label: 'AD\ 
i ‘ g gf 9 sf ig P.ACY: .ASCII <22>\Owner: 'ADN 
20 $) és 6E 3 i: 1C OBct P.ACZ: .ASCII <28>\Owner VIC: C!0B,!OB)\ : 
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-000 LIST_ONE_RECORD = List save set record 12-80 8-138e 90:06:¢7 DISKSVMSMASTER: (BACKUP. SRCILIST.B32:7 > 3 
5D 42 4F 21 42 4F 21 SB 20 0 DE $ 
3A és 74 «661 $6 6E of i ze 1 ‘ ' ¢ if Fr P.ADA: .ASCII <22>\Creation date: 'ZD\ : 
3A 72 65 62 6D 75 6E <0 ? ! : ; é3 ig 0908 P.ADB: .ASCII <22>\Serial number: 'OL\ : 
20 3A 73 6B 63 6F 6C és ; : 1 st F 3 if eat P.ADC: .ASCII <22>\Total blocks: 'UL\ : 
20 3A 74 6E 75 6 63 26 f ; ‘ : 3 34 if 098) P.ADD: .ASCII <22>\Access count: 'UL\ : 
20 3A 65 7A 69 73 20 if $2 ; 3 5 Sf ‘3 ¢ 0348 P.ADE: .ASCII <22>\Cluster size: 'UL\ : 
20 20 20 3A 6B 63 65 rt 23 $5 gt $0 gt 44 ¢ O9SF P.ADF: .ASCII <19>\Data check: \ : 
o 8 ef fe 6 $8 5 P.ADG: ASCII <3>\No \ : 
20 2C 64 3 65 35 0977 P.ADH: .ASCII be \ : 
gf ri 0 O97E P.ADI eASCII <3>\No \ s 
65 74 8 ‘ 57 0 0982 P.ADJ eASCII <5>\Write\ é 
65 7A 69 73 20 6E 6F $9 4 $f $3 3 4 33 6 84: P.ADK: .ASCII <22>\Extension size: 'UL\ 3 
6F 69 74 63 65 74 6F 7 33 0 é 6C $3 3 bz 3444 P.ADL: .ASCII <19>\File protection: \ : 
3A 73 65 6C 69 66 20 13 e go 69 %8 $i 38 29 Boor P.ADM: .ASCII <22>\Maximum files: 'UL\ : 
7 63 65 74 6F 72 70 20 65 6D %3 ec rf Se 3 saad P.ADN: .ASCII <19>\Volume protection: \ : 
20 20 20 20 20 20 3A it 44 ¢ $8 $f $5 7 18 dee3 P.ADO: .ASCII <22>\Windows: 'UL\ 3 
74 6€ 65 74 65 72 20 ro Le gp $° : oe re 48 Bend P.ADP: .ASCII <22>\Minimum retention: '%D\ : 
74 6E 65 74 65 72 20 e %3 6p 69 4 ek re 48 snp P.ADQ: .ASCII <22>\Maximum retention: '%D\ : 
20 65 76 61 73 20 6C 61 63 69 $9 79 43 0 17 QOA25 P.ADR: .ASCII <23>\Physical save of volume\ : 
65 6D 75 6¢ 6F 76 20 66 6F OA32 g 
20 20 20 20 20 20 20 3A 65 63 69 76 65 44 16 OA3B P.ADS: .ASCII <22>\Device: 'AD\ 3 
se aN eT 202020 20 80 OOASE P.ADU: ASCII <O> 
36 30 4B 52 04 Soaas P.ADV: ASCII <4>\RKO6\ : 
7 30 8 52 04 OOAS8 P.ADW: ety <4>\RKO7\ 3 
4 0 5 5 04 QOOASD P.ADX: .ASCI <4>\RP04\ g 
5 30 50 5 3 QOA62 P.ADY: .ASCII <4>\RPO5\ 3 
$ 0 50 5 4 QOA67 P.ADZ: .ASCII <4>\RPO6\ 3 
0 4D 5 04 QOA6C P.AEA: .ASCII <4>\RMO3\ 3 
7 30 50 5 4 QOA71 P.AEB: .ASCII <4>\RPO7\ F 
54 48 37 8 50 6 BOArE P.AEC: .ASCII <6>\RPO7HT\ 3 
1 4C 4 A7D P.AED: .ASCII <4>\RLO1\ F 
§ 0 4C 4 BOARS P.AEE: .ASCII <4>\RLO2\ 3 
0 23 4 QOA8/? P.AEF: .ASCII <4>\RxX02\ 3 
4 ; 04 QOA8C P.AEG: .ASCII <4>\RxX04\ F 
0 4D 4 Dade P.AEH: .ASCII pe ts F: 
: 5 55 54 04 A96 P.AEI: .ASCII <4>\TUS8\ 3 
0 4D 25 4 QOA9B P.AEJ: .ASCII <4>\RMO5\ 3 
1 0 58 4 OAAO P.AEK: .ASCII <4>\RX01\ $ 
1 1 4C 40 04 OQOAAS P.AEL: .ASCII <4>\MLT1\ 3 
‘ 4 5 4 QOAAA P.AEM: .ASCII <4>\RB02\ 3 
42 5 4 QOAAF P.AEN: .ASCII <4>\RB80\ 3 
0 4 2 4 QOAB4 P.AEO: .ASCII <4>\RA80\ F 
1 41 4 QOAB9 P.AEP: .ASCII <4>\RA81\ 3 
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| LIST List a save set 1b-Se -1984 00:06:23 VAX-11 Bliss-32 V4.0-74 P g 
| $O2~000 LIST_ONE_RECORD = List save set record 12=808=1 382 99:08:82 DT SKSVMGMASTERSCBACKUP SRCILIST.B32:1° °° O 
0 18 004 BLEQU. 4 : 
D6 INCL R 3 
30 AG 09 FB 0 CALLS #0, LIST_EOL ; 
50 ° 3¢ 3 4$: MOVZWL OUfPUT_ATTBUF, RO $ 2193 
04 AS Dd 8088 PUSHL OUTPUT _ATTBUF +4 5 2198 
50 pd 0056 PUSHL R : 
FA63 «CF O9F «0006 PUSHAB P.ABZ : 
64 3 EB 0064 CALLS #3, LIST_FAO : 
09 3 €9 00067 LBC =—OsaR3, 5$ + 2199 
2 DD OO06A PUSHL VOLNUM : 
FAGE cf oF 906 PUSHAB P.ACA : 
64 : FB 000 ALLS We, LIST_FAO : 
30 AG 00 FB 00073 5$: CALLS #0, LIST~EOL : 2200 
50 18 AS 3¢ 9907 6$: MOVZWL OUTPUT_ATTBUF+24, RO : 2203 
10 13 0007B BEQL ; 
1¢ 6 AS ODD 90070 PUSHL OUTPUT_ATTBUF +28 : 2208 
50 DD 00080 PUSHL RO : 
FAGS CF OOF 00082 PUSHAB P.ACB : 
64 03 FB 00086 CALLS #3, LIST_FAO : 
30 AG 00 Fe 90089 CALLS #0, LIST~EOL 3 2209 
5¢ AS 05 0008D 7S: TSTL OUTPUT_ATTBUF +92 > 2212 
13 13 60090 BEQL 8$ : 
7E 5¢ }6AS5-3C: «00092 MOVZWL OUTPUT_ATTBUF+92, -(SP) : 2217 
7E 5E AS «3 (00096 MOVZWL OUTPUT-ATTBUF +94, -(SP) ; 
FAG4 «CE OOF O009A PUSHAB P.ACC : 
64 03 FB O009E CALLS #3, LIST_FAO : 
30 AG 00 FB 000A1 CALLS #0, LIST~EOL : 2218 
24 «AS OS B00A3 8$: TSTL  OUTPUT_ATTBUF +36 : 2221 
OE 13 0008 BEQL : 
24 AS 9F OOOAA PUSHAB OUTPUT_ATTBUF +36 : 2225 
FAGE CF 9F OOOAD PUSHAB P.ACD : 
64 02 FB 00081 CALLS #2, LIST_FAO : 
30 AG 00 FB 000B4 CALLS #0, LIST~EOL ; 2226 
50 08 AS 3C 000B8 9S: MOVZ2WL OUTPUT_ATTBUF+8, RO > 2229 
39 13 000BC BEQL 13$ ; 
52 50 DO OOOBE MOVL RO, LENGTH : 2238 
53 0c AS 00 000Cc1 MOVL § OUTPUT_ATTBUF+12, ADDRESS 3 2239 
52 D5 000C5 10$:  TSTL LENGTH 3 2240 
3 15 b99¢7 BLEQ 13$ : 
52 08 AS 10 0 €D 000C9 CMPZvV #0, #16, OUTPUT_ATTBUF+8, LENGTH > 2242 
06 12 OOOCF BNEQ 11§ ; 
A61 CF 9F 00001 PUSHAB P.ACE 3 2243 
04 11 9003 B 12$ ; 
FAGF CF 9F O00D7 11$ PUSHAB  P.AC : 2264 
64 1 FB 000DB 12$ CALLS #1, LIST_FAO ; 
C BB 0000 PUSHR #*M<R2,R3> : 2247 
FAGC CF 9F OO0EO PUSHAB P ; 
64 03 FB O00E4 CALLS #3, LIST_FAO ; 
30 AG 00 FB 000E7 CALLS #0, LIST “EOL ; 2248 
5 FF13, «C2. «OSE OE MOVAB -287(R2)7 LENGTH > 2249 
5 00ED ¢ H OOF BOVAB (R3), ADDRESS ; ; 28 
0400 8F 6C iS 81 OOF 13$: CMPW OUTPUT _ATTBUF +108, #1024 3 2054 
1D é FD BNEQ 15$ ; 
FAS! CF OF OOOFF PUSHAB P.ACH : 2257 
64 01 FB 00103 CALLS #1, LIST_FAO : 


D 
16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Page 40 
- List save set record 19-800- 1382 90:06:¢? DISKSVMSMASTER: CBACKUP.SRCILIST.B32;1 ° (7) 
50 2c AS 36 0106 MOVZWL OUTPUT_ATTBUF+44, RO : 2258 
0¢ 1 10A BEQL : 
30 AS DD 10¢ PUSHL OUTPUT _ATTBUF +48 t 2262 
50 DD 0010F SHL sR 3 
FASA CF 9F 00111 PUSHAB P.ACI : 
64 FB 00115 ALLS #3, LIST_FAO : 
30 AG FB 00118 14$: CALLS #0. LISTEOL + 2263 
50 44 =O 3¢ O16 15$: MOVZWL OUfPUT_ATTBUF+68, RO + 2266 
19 1 1 BEQL 16 : 
48 AS DD 001 PUSHL OUTPUT_ATTBUF +72 + 2271 
50 DD 001 SHL_ RO : 
FAS1 cr 9F or 7 PUSHAB P.ACJ : 
64 3 FB 00128 CALLS #3, LIST_FAO : 
30 AG 09 FB 001 E CALLS #0, LIST“EOL : 2272 
50 60 A D9 00132 16$:  MOVL § OUTPUT_ATTBUF+96, RO + 227 
0D 13 001 6 BEQL 17$ ; 
50 0d 0013 PUSHL RO : 2279 
FASS CF OF 00134 PUSHAB  P.ACK ; 
64 02 FB 0013E CALLS We, LIST_FAO : 
30 AG 09 FB 00141 CALLS #0. LISTEOL : 2280 
50 34 «OA 3¢ 00145 17$ MOVZWL OUTPUT_ATTBUF+52, RO + 2283 
10 13 00149 BEQL : 
38 «=6AS «(DD 00148 PUSHL  OUTPUT_ATTBUF +56 + 2288 
50 DD 0014E PUSHL RO : 
FAS6 CF 9F 00150 PUSHAB P.ACL : 
64 03 FB 00154 CALLS #3, LIST_FAO : 
30 AG 00 FB 00157 CALLS #0, LIST~EOL + 2289 
50 3c 60 AS. 3C 00158 18%:  MOVZWL OUTPUT_ATTBUF+60, RO + 2292 
10 13 0015F BEQL ssi ; 
40 AS dD 00161 PUSHL  OUTPUT_4TTBUF +64 + 2297 
50 DD 00164 PUSHL RO : 
FAS? CF 9F 00166 PUSHAB P.ACM ; 
64 03 FB OO16A CALLS #3, LIST_FAO ; 
30 AG 00 FB 0016D CALLS #0. LISTEOL ; 2298 
50 64 AS DO 00171 19$:  MOVL  OUTPUT_ATTBUF+100, RO ; 2301 
0D 13 00175 BEQL 20S ; 
50 od 00177 PUSHL RO : 2305 
FASB CF OF 00179 PUSHAB P.ACN ; 
64 62 FB 0017D CALLS #2, LIST_FAO : 
30 AG 00 FB 00180 CALLS #0. LIST7EOL > 2306 
50 6E AS 36 0184 20$:  MOVZWL OUTPUT_ATTBUF+110, RO : 2309 
0D 13 00188 BEQL 21$ ; 
50 DD 0018A PUSHL RO : 2313 
FASF cr OF 0018 PUSHAB P.ACO : 
64 2 FB 001 CALLS ae, LIST_FAO : 
30 AG 00 FB 0019 CALLS #0. LIST™EOL + 2314 
50 70 AS 3¢ 0197 21$ MOVZWL 9 fPUT_ATTBUF+112, RO : 2317 
0D 13 00198 BEQL $ a ; 
50 pd 0190 PUSHL R > 2321 
FA63 CF OF 0019F PUSHAB P.ACP : 
64 : FB O1A3 CALLS ae LIST_FAO F 
30 AG FB O01A6 CALLS #0. LIST7EOL ; 3332 
72 AS BS OO1AA 22$ TSTW QUE PUT _ATTBUF +114 : 
3, 13 001AD EQL 4$ ; 
30 AG 0 FB OO1AF CALLS #0, LIST_EOL : 3338 
FA66 cf OF 0183 PUSHAB P.ACQ ; 9 
64 1 FB 001B CALLS #1, LIST_FAO : 
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ve set 1hese -1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Pa 41 
RECORD = List save set record 12-Sep-19 4 90:98:83 DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 - (7) 
30 AG 00 FB 001BA CALLS #0, LIST_EOL : 2330 
50 4C AS i 185 HOV ZUL {PUT _ATTBUF +76, RO : 5 32 
20 50 e3 1 C4 CHP QOUTPUT_ATTBUF +80, #32 : 2333 
50 Ag DD OO1CA PUSHL OUTPUT _ATTBUF +80 : 2338 

50 DD 001CD PUSHL R ; 

FAG3 «CF OOF «OOICE PUSHAB P.ACR F 
30 (ke 86 £B 0183 eat te a. LTE : 2339 
7E 72 AS 3C OOIDA 238:  MOVZWL OUTPUT_ATTBUF+114, -(SP) + 2343 

FA6B CF OOF 001D PUSHAB P.ACS : 
o | BERRI BEE a cist to om 
74 AS Be O19 24$:  TSTB QufPUuT ATTBUF +116 t 2347 

03 12 : 1EC BNEQ $ ; 

O2EF Hi O1EE BRW $ : 
FAGF CF 9F OO1F1 25$: | PUSHAB P.ACT : 2350 

64 01 FB O01FS CALLS #1, LIST_FAO F 
OTT BD OOTKE 268: POSH 388 : $33) 

000000006 09 07 FB OO1FD "CALLS. «ss #1, _GET_VOLUME_ATTRIBUTES F 
64 — 61 Ha $0508 CACCS” #i, LIST_FAO .——— 
50 42 AS 3C 00208 MOVZWL OUTPUT_ATTBUF +66, RO > 2364 

09 13 0020F BEQL  27$ : 
50 DD 00211 PUSHL + 2366 

FA71 CF 9F 00213 PUSHAB P.ACV : 

64 62 FB 00217 CALLS #2, LIST_FAO ; 
30 AG 00 FB OO21A 27$: CALLS #0, LIST7EOL : 2367 
40 Ad 8 O02iE istw TPUT_ATTBUF +64 ; 2369 
7E 41 AS 9A 00223 MOVZBL OUTPUT_ATTBUF+65, -(SP) : 2373 

FA76 «CE OOF 00287 PUSHAB P.ACW : 

64 02 FB 00228 CALLS #2, LIST_FAO : 
30 AG 00 FB b02¢5 CALLS #0, LIST~EOL : 2374 
50 $5 3¢ 00232 28$: MOV ZUL OUTPUT_ATTBUF, RO ; 2377 
04 AS DD 00237 PUSHL  OUTPUT_ATTBUF +4 ; 2382 

50 DD 00 3A PUSHL RO : 

FA78 «CF OOF «0023C PUSHAB P.ACX : 
» § SS ib sd AES AE LST. t49 ous 
50 08 a3 36 9 47 29$: mOVZUL fPUT_ATTBUF+8, RO ; 3386 
0c a5 DD 00240 PUSHL OUTPUT ATTBUF +12 : 2391 

50 BD 0 20 PUSHL R : 

FA79. CF OOF «00 2 PUSHAB P.ACY : 
30 ha 6 te 00988 GALLS 83: tiSt-Et0 : 239 
28 ‘ 08 6 3p 30S: ist QufPUT ATTBUF +40 333 
7E 8 AS 30 88 MOVZWL OUTPUT_ATTBUF+40, -(SP) : 2400 

7E a, a5 Hi 66 MOVZWL OUTPUT“ATTBUF +42. -(SP) : 

64 ie: Os Fe O0ce atte WS est Fao ; 
30 AG 0 FB 00 $f CALLS a. LIST7EOL > 2401 
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i LIST List a save set 16-Sep-1984 00:06:23 VAX-11 Bliss<-32 V4.0-742 Pa 2 
v04-000 LIST ONE RECORD - List save set record 12-Sep-19 4 90:08:82 DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 ™ H 
18 #AS OD 75 31$: =‘ TSTL TPUT_ATTBUF +24 + 2406 
Of 3 ° RB BEQL YS . : 
18 AS 9F O027A OUTPUT_ATTBUF +24 + 2408 
FAB2 CF 9F 0027D PUSHAB : 
6 FB 00281 CALLS “3, LIST_FAO : 
30 AG F CALLS #0. LIST7EOL : 3409 
50 3c.) AS CO 8 32$: MOVL QuIPUT_ATTBUF +60, RO + 2612 
0D 1 BC BEQL $ : 
50 DD PUSHL RO : 2616 
FA86 «6CF OOF «00 PUSHAB P.ADB : 
64 02 FB 00294 CALLS #2, LIST_FAO : 
30 AG 00 F 0 97 CALLS #0, LIST“EOL + 2417 
50 2c AS OD 98 33$: MOVL QUIPUT_ATTBUF +44, RO + 2420 
gp 13 0029F BEQL 4$ : 
0 DD 002A1 PUSHL RO + 2626 
FABA CF 9F 00 a3 PUSHAB P.ADC ; 
64 02 FB 002A CALLS #2, LIST_FAO : 
30 AG 00 FB OO2AA CALLS #0, LIST“EOL + 2425 
7E 53 AS «9A 00 AE 34$:  MOVZBL OUTPUT_ATTBUF+83, -(SP) + 2429 
FA92 «CF OOF: «0028 PUSHAB P.ADD ; 
64 02 FB 00286 CALLS #2, LIST_FAO : 
30 AG 00 FB 00 B9 CALLS #0. LIST EOL + 2430 
7E 4E AS 3C 002BD MOVZ2WL OUTPUT_ATTBUF+78, -(SP) + 2433 
FASA CF 9F 002C1 PUSHAB P.ADE : 
64 02 FB 002C5 CALLS #2, LIST_FA : 
30 AG 00 FB 002¢8 CALLS #0, LIST~EOL + 26346 
FAAG CF 9F O02CC PUSHAB P.A + 2436 
64 01 FB 00 09 CALLS #1, LIST_FAO : 
07 4A AS €E8 002D BLBS  OUTPUT_ATTBUF+74, 35$ > 2437 
FAAF CF SF 00207 PUSHAB P.ADG : 2438 
64 01 FB 002DB CALLS #1, LIST_FAO : 
FAAC CF 9F OO2DE 35$:  PUSHAB P.ADH + 2439 
64 01 FB O0gee CALLS #1, LIST_FAO ; 
07 6A AS 01 £0 O02E BBS #1, OUTPOT_ATTBUF+74, 368 + 2440 
FAA? CF OF 00 EA PUSHAB P.ADI > 2641 
64 01 FB OOZEE CALLS #1, LIST_FAO ; 
FAAG CF 9F OO2F1 36$:  PUSHAB P.ADJ + 2442 
64 01 FB 002F5 CALLS #1, LIST_FAO ; 
30 AG 00 FB 99 FB CALLS #0, LIST~EOL + 2643 
7E 4C AS 3C OO2FC MOVZWL OUTPUT_ATTBUF+76, -(SP) : 2446 
FASB «OCRCOCO'>#F 00 00 PUSHAB  ?.ADY ; 
64 02 FB 00304 CALLS #2, LIST_FAO ; 
30 AG 00 FB 00307 CALLS #0, LISTZEOL + 2447 
FAA? CF OF 0308 PUSHAB P.ADL + 2649 
64 1 FB 00 CALLS i LIS! FAO ; 
44455752 BF bp O38 USHL  #1145395026 + 2450 
7E 46 AS 3C 0031 MOVZWL OUTPUT_ATTBUF+70, -(SP) ; 
00B0 4 02 FB 0031C CALLS #2, LIST_PROTECTION F 
30 AG 00 FB 00321 CALLS #0, LIST~EOL 3 2451. 
34 ~«C BD 0325 SHL OUTPUT_ATTBUF +52 > 2454 
FASE CF OF 0 4 PUSHAB P.ADM ; 
64 62 FB C CALLS 3, LIST_FAO ; 
30 AG 00 FB 0032F CALLS LISTEOL ; 2455 
on «TAMA ft OB 00887 A OM ee ag - 
44435752 + bp $ A PUSHL #1146983954 : 2458 
7E 44 AS 3C 00340 MOVZWL OUTPUT_ATTBUF +68, -(SP) ; 


16 
ST List a save set 18-5e -1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Pa 43 
- L ONE _ - List save set recor -Sep- 253: KSVMSMA : (BACKUP. L 852; (7) 
v04-000 IST_ONE_RECORD = Li d 10-$e9-1984 i 98 3 DISKSVMSMASTER:CBACKUP. SRCILIST.B32:1 > (7 
0089 C4 0 FB 00344 CALLS #2, LIST_PROTECTION : 
AG FB 00349 CALLS LIST~EOL t 2459 
7E 52 AS 9A 00340 MOVZBL OUTPUT_ATTBUF+82, -(SP) + 2462 
FAAO «CFOS PUSHAB P.ADO ; 
64 : FB CALLS #2, LIST_FAO : 
30 AG FB 00 CALLS #0, LIST“EOL + 2463 
60 AS D 0 ¢ TSTL QUIPUT _ATTBUF +96 + 2465 
Of 1 5F BEQL 3 : 
60 AS OF 0361 PUSHAB OUTPUT_ATTBUF +96 + 2469 
FAAG CF 9F 00364 PUSHAB DP : 
0 Tt a 7 
68 4 o8 6 $f 378: STL fPUT_ATTBUF +104 : 30) 
OF 1 09 2 BEOQL : 
68 AS SF 00374 PUSHAB OUTPUT_ATTBUF +104 + 2477 
FAAS CF 9F 00377 PUSHAB P.AD ; 
64 02 FB 00378 CALLS #2, LIST_FAO : 
30 AG 00 FB 0037 388: CALLS #0, LISTIEOL : 2478 
0158 31 00382 39$: BRW 59$ + 2481 
52 DD 00385 40$: PUSHL R2 + 2487 
000000006 00 01 FB 00387 CALLS #1, GET_PHYSVOL_ATTRIBUTES : 
FAAS CF 9F 0038 PUSHAB P.ADR + 2490 
64 01 FB 0039 CALLS #1, LIST_FAO : 
30 AG 00 FB 0039 CALLS #0, LIST~EOL + 2491 
50 65 3C 00399 MOVZWL OUTPUT_ATTBUF, RO > 2493 
10 13 0039¢ BEQL : 
04 AS DD 0039E PUSHL  OUTPUT_ATTBUF +4 + 2498 
50 DD 003A1 PUSHL RO : 
FAAB CF 9F O03A3 PUSHAB P.ADS ; 
64 03 FB 003A7 CALLS #3, LIST_FAO : 
30 AG 00 FB OO3AA CALLS #0, LIST“EOL + 2499 
52 24 AS DO OO3AE 41$: MOVL OUTPUT_ATTBUF+36, R2 : 2502 
52 D1 0038 CMPL = R2, #2 : 
Og 1A 0038 BGTRU 4 : 
FB2B CF42 DD 00387 PUSHL DEVTYPESCR2] : 2539 
FB8B OCF «OOF: «003BC PUSHAB P. : 
64 02 FB 903¢0 CALLS #e LIST_FAO : 
eA 11 003¢ BRB 43$ + 2540 
QOOOOOFF BF é D1 005¢5 42$:  CMPL R2, #255 + 2542 
25 1B 003CC BLEQU F 
6E 06 DO 003CE MOVL #6, LENGTH + 2544 
7E 7C 00301 CLRO 30. = ( §P) : 2553 
OC AE 9F 00303 PUSHAB BUFFER : 
OC AE OF 00 06 PUSHAB LENGTH ; 
52 DD 0030 PUSHL R ; 
000000006 00 05 FB 0030 CALLS #5, DECODE_DEVTYP : 
04 AE 9F OO3E PUSHAB BUFFER : 2557 
04 AE bb O3€ PUSHL LENGTH : 
FB76sCF O3E PUSHAB P ; 
64 03 FB OO3EC CALLS #3, LIST_FAO ; 
30 AG 0 FB OOSEF 43$: CALLS #0. LIST “EOL > 255 
50 1¢ AS 00 00 F3 44$: MOVE OufPUT ATTBUF +28, RO : 256 
9p 13 003F BEQL  45$ 3 
0 pd 03F9 PUSHL RO > 2566 
64 see 65 4 § FP CALLS mats FAO ; 
30 AG 8 FB 00402 CALLS a. LIST"EOL > 2567 


| H 16 
LIST List a save set 16-Se 
v04-000 LIST_ONE_RECORD = List save set record 14-Se 

50 08 1 76 0506 45$ 
oc AS. Db docoe 
50 go 040F 
FB7B ff F 0041 
64 3 FB 0041 
30 = AG 0 FB 0041 
50 18 AS 00 0041C 468: 
0D 13 004 
50 0D 004 
FB7F CF OF 00424 
64 8 FB BR6 8 
30 «AG 4 428 
10 AS B Bie F 47$: 
03 12 00432 
OOA9 31 Bnet 48$: 
52 14 AS 0 00437 49$: 
50 10 AS 3C 00438 50S: 
50 14 AS CO 0043F 
50 52 D1 00443 
EC 1€& 00446 
14 AS 52 01 00448 
06 12 0044¢ 
cs WF BR bees 
04 11 0045 
FB7A CF 9F 00454 51 
64 01 FB 00458 52 
62 DD 00458 
FB77 =6CF OF: «00450 
64 08 FB 00461 
01 04 A2 01 00464 
OF 13 00468 
50 62 04 A2 C1 0046A 
FF AQ 9F BReet 
FB66 «CF OF 00472 
64 02 FB 00476 
30 «AG 00 FB 00479 53$: 
52 08 co ath 
B9 11 00480 
52 DD 00482 54$: 
000000006 00 01 FB 00484 
52 18 AS 10 af 00488 
1c =6—A5) =6BS 00490 
8 0S 0495 
D 49 
02 13 00497 
52 D nb a4 
0090 ¢5 06 00498 55$: 
0094 C5 2 C ene 
FE81 C5 95 O04A4 
+3 18 004A8 
O3FD C4 FB OO4AA 
04 OO4AF 
34 65 61 00480 56$: 
1 1B 0048 
5 go 048 
FB29. «CF O9F ~00487 


i¢) 
i¢) 


-1984 00:06:23 VAX-11 Bliss<-32 V4.0-742 
=1382 90:98:87 DISKSVMSMASTER: (BACKUP. SRCILIST.B 
MOV ZUL OUTPUT_ATTBUF+8, RO 
PUSHL OUTPUT _ATTBUF +12 
PUSHL R 
PUSHAB P.AEW 
CALLS #3, LIST_FAO 
CALLS #0, LIST“EOL 
MOVL QufPUT_ATTBUF #24, RO 
BEQL 47$ 
PUSHL RO 
PUSHAB P.AEX 
CALLS We, IST_FAO 
CALLS LISTEOL 
TSTW OUTPUT_ATTBUF +16 
BNEQ 9$ 
BRW 59$ 
MOVL  OUTPUT_ATTBUF+20, P 
MOVZWL OUTPUT“ATTBUF+16, RO 
ADDL2 OUTPUTATTBUF+20, RO 
CMPL = P,,_RO 
BGEGU 48$ 
CMPL P, OUTPUT_ATTBUF +20 
NEG 5/$ 
PUSHAB P.AEY 
BRB 52$ 
PUSHAB P.AEZ 
CALLS #i, LIST_FAO 
PUSHL (PJ 
PUSHAB  P.AFA 
CALLS #2, LIST_FAO 
CMPL ss (P), 1 
BEQL 53$ 
ADDL3 4(P), (P), RO 
PUSHAB -1(RO) 
PUSHAB P.AFB 
CALLS #2, LIST_FAO 
CALLS #0, LISTZEOL 
ADDL2 #8. P 
BRB 50$ 
PUSHL  R2 
CALLS #1, GET_FILE_ATTRIBUTES 
ROTL #16, OUTPUT RECATTR+8, BLOCKS 
TSTW QUTPUT _RECATTR# 12 
BNEQ 55$ 
TSTL BLOCKS 
BEQL 4 55$ 
DECL BLOCKS 
INCL. LIST TOTFILES 
ADDL2 BLOCRS, LIST_TOTSIZE 
TSTB  QUAL+9 
GEQ 6 
CALLS #0, FULL_LISTING 
CMPW QUTPUT FILENAME , #52 
BLE QU $ 


PUSHL R5 
PUSHAB P.AFC 


P 
32;1° 
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2570 
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2583 
584 
587 

3534 
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2599 

2600 


2601 


se LL CC CCC LL 
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List a save set sh-kege 1984 3 VAX-11 Bliss-32 V4.0-742 

LIST_ONE_RECORD = List save set record 1e-Sep- 1984 99: 98: 8 DIS aKSVMGN TER: (BACKUP. SRCILIST.832; » esl” 

64 02 FB 0488 CALLS #2, LIST_FAO : 

30 AG FB ABE CALLS #0, LIST“EOL : 

FB22 fF 9F 004C PUSHAB P.AFD : 

64 1 FB 004C6 CALLS #1, LIST_FAO : 

09 11 004C9 BRB $ : 

5 DD 004CB 57$ PUSHL R : 

FBID CF 9F 004CD PUSHAB P AE : 

64 02 FB 00401 CALLS #2 : 

30 AS 9F 00404 58$:  PUSHAB oufeur SATTBUF +48 : 

52 DD 00407 PUSHL nt CkS~ : 

FB17 «CFs OOF: «00409 PUSHAB P.AFF : 

64 03 FB 9400 CALLS #3, LIST_FAO : 

30 AG 0 FB 004E0 59S: CALLS #0, LISTIEOL : 

04 00464 60$: RET : 


3; Routine Size: 1253 bytes, Routine Base: CODE + OBE9 
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save se 16-Sep-1984 00:06:23 VAX-11 Bliss<-32 V4.0-742 P 47 
187"  FAltiatize Listing Er eeen tee 90S ee PERS UMGHASTERSCBACKUP SRCILIST.B32:1°%" (BS 
LIST_FABCFAB$B_RFM) = FABSC_VAR; 

BBLOCKCLIST_FABCFC_RAB), RABSV_WBH] = TRUE; 


<r 
Ra 
s° 
—— 
ze 
ro 


IF NOT SCREATE(FAB=.LIST_FAB) 
THEN 


FILE_ERROR( 
BACKUPS OPENOUT + STSSK_SEVERE, 
“LIST=FAB FABSL_STS} 
-LIST<FABLFABSL—STVJ5; 


IF NOT SCONNECT(RAB=LIST_FABCFC_RABJ) 


N 
FILE_ERROR( 
BACKUPS, OPENOUT + STS$K_SEVERE, 
“BBLOCK(LIST_FABLFC_RABI, RABSL_STS] 
“BBLOCKELIST=FABLFC~RABJ, RABSL_STVJ); 


} Put a header on the Listing. 
hn PM oF "dz 

IF .QUALCQUAL_INPU_LIST] NEQ 0 
THEN 

BEGIN 

FAO_("save set"); 

EOL_(); 


BEE FAWN ANION NINN 4 2 OO ne es Oo 


a dd 
20D 0.0000 00.0000 09909 0000 8 II III NINO OOOO 
WN SO ODONOUSWN $O OBNAUES WN “OOONOUSWN"OO -ir? 
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ELSE 
‘rata journal"); 
END; 
53 49 4C a 50 55 4B 43 41 42 O10CE P.AFG: . ASCII \BACKUP.LIS\ ; 
3a 54 «55:«(50 «(54 «(O55 «(GF 2024 «653 «659 «653 «(01008 P.AFH: ASCII \SYSSOUTPUT:\ : 
20 66 6F 20 67 6 69 74 73 69 4¢ OB O10E3 P.AFI: .ASCII <11>\Listing of \ ; 
4 65 7 3! 65 76 61 73 08 Oi oes P.AFJ ASCII <8>\save set\ 5 
6C 61 6& 72 75 6F 6A 20 50 55 4B 43 41 42 OF O10FB P.AFK: ASCII <14>\BACKUP journal\ : 
.EXTRN SYSSCREATE, SYSSCONNECT 
083c 00000 -ENTRY INIT_LIST, Save R2,R3.R4,R5,R11 : 2653 
55 000000006 00 i 9000¢ V FILE~ERROR ; 
54 000000006 8F D0 0000 MOVL #BACRUPS_OPENOUT +4, R4 : 
33 EEES CF 9E 0019 MOVAB List FAO; R : 
E FEFB CE 9€ 0001 MOVAB -264TSP), SP ; 
58 6E 9E OOOIA MOVAB PSAREA, PS > 2690 
68 0100 «8 3¢ 0010 MOVZWL #256, (P$) > 2691 
04 AB 08 AB 00 : MOVAB. &(R11), 4(PS$) : 69¢ 
52 00000000' FF p 00 MOVL QUAL +6 LIST_FAB : 269 
35 Ag A 00 : MOVE #10, 5 (vist FAB) : 2698 
0 A 92 AF 9E 000 MOVAB P.AFG, 48(LIST_FAB) ; 2699 
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LIST List a sav -Sep-19 2:06:23 VAX-11 Bliss-32 V4.0-742 49 
YO2-000 FINLIST = finish Listing 1$-$e0-196 195098, DESKSUMGMASTERSCBACKUP-SRCILIST.832:1°"° ($5 
3: 1198 744 1 ZSBTTL ‘FIN_LIST = finish Listing’ 

3 1199 745 1 GLOBAL ROUTINE FIN N_LIST(CLOSE_LIST): NOVALUE= 

; 1200 og 1 

3; 1201 747 «(1 «S44 

3 3 os be 1! 

; 120 74 1 ! FUNCTIONAL DESCRIPTION: 

s ’ Be 729 : This routine terminates a Listing. 

3 1 Pg 1 ! INPUT PARAMETERS: 

: 120 75 1! CLOSE _LIST = TRUE TO CLOSE LISTING FILE; 

; 1 08 134 1 FALSE TO LEAVE LISTING FILE OPEN 
3; 1210 736 1 ! IMPLICIT INPUTS: 

3: 1211 757 1! NONE 

3 1 1 758 1! 

3; 121 759 1 ! OUTPUT PARAMETERS: 

3: 1214 760 1! NONE 

: 1215 701 9 

3 1216 1O6 1 ! IMPLICIT OUTPUTS: 

3 1217 7635 1! NONE 

3; 1218 764 1! 

3 1219 765 1 ! ROUTINE VALUE: 

: 1220 766 1! NONE 

3 igs! 14) 1! 

3 12 ; 768 1 ! SIDE EFFECTS: 

3 122 2769 1! NONE 

3 1224 2770 1! 

: 1225 2771 1 !<= 

3: 1226 e772 #1 

3 1227 277 BEGIN 

: 1228 774 LOCAL 

: 1229 775 LIST_FAB: REF BBLOCK ! FAB for Listing file 
> 1230 776 : PSAREA: VECTORCPS$S{ZE]; | Impure area 

3; 1231 777 GLOBAL REGISTER ; 
: \S36 2778 P$ = 11: REF VECTOR; ! Impure area base register 
: 123 779 

3: 1234 780 

3: 1235 781 ! Initialize impure area. 

g 1¢36 78 ! 

3: 123 78 P$ = PSAREA; 

: 1238 784 2 LIST_DESCLO) = LIST_SIZE; 

3 1239 785 2 LIST DESCL1) = Lis? BUFFER: 

3: 1240 786 

3; 1241 787 ‘ i 

3 7 $§ 788 ! Close the Listing file (if desired). 

: 126 789 : 

3 12464 790 IF CLOSE L558 

3 12465 791 THEN 

3 1 “8 3s sti 

3 1246 8 FAB = .QUALCQUAL_LIST_FC]; 

: 1248 94 & If snot SCLOSE(FAB=.LIST_ FAB) 

3 1249 795 THEN 

: 1250 a FILE_ERROR( 

3 : 2) a4 wake ” arenes + STSSK_SEVERE, 

2 7 3g 799 tet FAB FABSL ~§T8), 

3: 1254 800 eLIST~ FAB FABSL— sT845 


bse 
4-Se 


- 
em 


save se 
T 


$ 1 
- finish Listing 1 age 50 


1984 00:06:23 VAX=11 Bliss<-32 V4.0-742 P 
5-19 4 99:98:82 DISKSVMSMASTER: CBACKUP.SRCILIST.632;1 (9) 


oe se 


aati 


oO 
uw 


Se 


WHO DONO 


EOL_(); 
IF “LIST_TOTFILES NEQ 0 
THEN 


BEGIN 
cote of !UL file!%S, !UL block!%S*, .LIST_TOTFILES, .LIST_TOTSIZE); 


if oun of '); 

IF .QUALCQUAL_INPU_LIST] NEQ 0 
THEN FAO_C'save set!/') 

re FAO_(*BACKUP journal!/'); 


RoNoPoPoPorononofnonofornonofnono~fnoéfnofnony = ee 


a YS SH 4H OTC 
WONOUSYwNR-O0@ 


RETURN; 
ND; 
} Finish up the current save set Listing. 
1 


Oe Oe Oe Oe Oe Oe Os oe Oe Se Oe Oe OH Oe Oe Oe Oe Bees 
—o kg — 4 — 2 _-» 2 — ab — 4 4 2 14 
_~N al 


rorore 


Wnr—O”0 


(66 20 4C 55 21 20 66 6F 20 6C 61 74 6F 54 22 011B8 P.AFL: .ASCII \''Total of !UL file!%S, !UL block!%S\ : 
oF 6C 62 20 4€ 55 21 20 2€ 53 25 21 65 6C 69 011C7 : 
53 25 21 68 63 01106 : 

20 66 6F 20 64 6€ 45 O7 O11DB P.AFM: .ASCII <7>\End of \ : 

ef 21 74 65 73 20 65 76 61 73 OA O11E3 P.AFN: .ASCII <10>\save set!/\ : 
(6C 61 6E 72 75 6F 6A 20 50 55 4B 43 41 3 9 Bt iee P.AFO: .ASCII <16>\BACKUP journal!/\ 3 


-EXTRN SYSSCLOSE 


FUnouitSw 


081C 00000 ENTRY FIN_LIST, Save R2,R3,R4,R11 3 2745 
54 00000000" EF 9E 00002 MOVAB QUAC+56, R4 3 
53 EE24 CF 9E 00009 MOVAB LIST_EOL, R3 ; 
5E FEF8 CE 9E O000E MOVAB -264TSP). SP F 
58 6— 9E 0001 OVAB  PSAREA, : 278 
68 0100 8F 3C€ 00016 MOVZWL #256, (P$) : 278 
04 AB 08 AB 9E 0001B MOVAB. 8 (R11), 4(PS$) : 278 
¢3 04 ac €9 90020 BLBC  CLOSE_LIST, 1$ > 279 
2 64 D0 00024 MOVL  QUAL*56, LIST_FAB : 279 
52 0D 00027 SHL LIST_FAB : 279 
000000006 00 01 FB 00029 CALLS #1, SYSSCLOSE ; 
4D 50 8 00 9 BLBS RO. 5$ : 
7E 08 Ag D 000 MOVO 8 (LIST_FAB), =(SP) : 2799 
52 DD 00037 PUSHL LIST_FAB : 2798 
000000006 &8F DD 00039 PUSHL #BACRUP$_CLOSEOUT+4 : 2797 
000000006 00 04 FB 0003F CALLS #4, FILETERROR : 
04 00046 RET : 2792 
63 00 FB 00047 1$: CALLS #0, LIST_EO > 2807 
50 O1EO0 C4 00 004A MOVL List TOTFILES, RO ; 2808 
11 13 0004F BEQL $ ; 
O1E4 C& DD 00051 PUSHL LIST_TOTSIZE > 2811 
50 DD 00055 PUSHL RO : 
FFSE CF 9F 00057 PUSHAB P.AFL 4 
DO a3 03 FB 0005B CALLS #3, LIST_FAO ; 
6 00 FB 0005F CALLS #0, LISTTEOL > 2812 


poten pag 


fe 

LIST List a save set 16-Sep-1984 00: +06: $3 VAX-11 Bliss-32 v4.0-742 age 51 
-000 FIN_LIST = finish Listing 14-Sep-1984 11:5 4 DISKSVMSMASTER: (BACKUP. SRCILIST.832; 4 (9) 
FF76 CF 9F 00062 2%: PUSHAB P.AFM : 2814 

DO «AS 01 F +494 CALLS 1, LIST_FAO : 
C8 A& 05 0006A TSTL 3 2815 

06 1 0060 EQL é 
FF71 CF OF OO06F PUSHAB P.AFN 3; 2816 

04 11 Oo73 BG 3 
FF76 F OF 8 75 3$ PUSHAB P.AFO ; 2817 

dO a3 1 FB 79 4$ CALLS - LIST FAO F 
6 0 FB 0007D CALLS #0, LIST_EOL é $88 
04 00080 5$ RET 3; 2819 


; Routine Size: 129 bytes, Routine Base: CODE + 11FF 
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D 
List a save set 16-Sep-1984 00:06:23 VAX-11 Bliss-32 V4.0-742 Pa 2 
CONCURRENT_LIST = generate concurrent Listing 19-800- 1382 90:96:87 DISKSVMSMASTER: CBACKUP.SRCILIST.B32;1 9 105 
0 1 ZSBTTL ‘CONCURRENT LIST = generate concurrent Listing’ 
1 ! GLOBAL ROUTINE CONTURRENT_LIST(BCB): NOVALUE= 
B5$ | tee 
8246 1! 
825 1 ! FUNCTIONAL DESCRIPTION: 
8 $ 1? This routine generates a concurrent Listing -- that is, a Listing 
: 5 : during a save, restore, compare, or copy operation. 
829 1 ! INPUT PARAMETERS: 
: ? : BCB - Pointer to BCB for buffer to List. 
8 ; 1 ! IMPLICIT INPUTS: 
835 1! NONE 
834 1! 
835 1 ! OUTPUT PARAMETERS: 
836 1! NONE 
$44 1! 
2838 1 ! IMPLICIT OUTPUTS: 
2839 1! NONE 
2840 1! 
2841 1 ! ROUTINE VALUE: 
sacg 1! NONE 
284 1! 
2844 1 ! SIDE EFFECTS: 
2845 1! Listing is produced. 
2846 1! 
2847 1 !e- 
2848 1 
2849 2 BEGIN 
2850 2 LOCAL 
2851 2 SAVE_ATTBUF : BBLOCKCATTBUF_LENGTH], ! Save for OUTPUT_ATTBUF 
o82¢ g PSAREA: VECTORCPS$SIZET; ! Impure area 
285 GLOBAL REGISTER . 
Spee 2 P$ = 11: REF VECTOR; ! Impure area base register 
2856 $ 
2857 ! Initialize impure area. 
2858 ‘ 
2859 P$ = PSAREA: 
2860 LIST_DESCCOJ = LIST_SIZE; 
2861 2 LISTIDESCL1) = _LIST_BUFFER; 
$868 
Spee ! Save attribute area so that attribute processing during the Listing 
$86? will be transparent to the caller. 
288 CHSMOVE (ATTBUF_LENGTH, OUTPUT_ATTBUF, SAVE_ATTBUF); 
8 
390 ! Do the ptet ing. The third parameter to DEBLOCK prevents the buffer 
1h from being released. 
e78 DEBLOCK(.BCB, LIST_ONE_RECORD, TRUE); 
875 
2876 ! Restore saved area. 


—-——__—- 


oo 


BR 


1 | 
ep-1984 00:06:23 VAX 11 Bl iss-32_v4..0-742 Page 53 | 


et 
ST = generate concurrent Listing DISKSVMSMASTER: (BACKUP. SRCILIST.B632;1 (10) 


! 
; CHSMOVE (ATTBUF _ LENGTH, SAVE_ATTBUF, OUTPUT_ATTBUF); 


087¢ 00000 ENTRY CONCURRENT LIST, Save R2,R3,R4,R5,R6,R11 : 2821 
56 00000000" EF 9E 00002 MOVAB OUTPUT SAT TBUF , R6 ; 
SE FE68 CE 9E 00009 MOVAB YOatSP) SP : 
58 Ge 3 000E MOVAB PSAREA, PS : 3859 
68 0100 8F %3C 0001 MOVZWL Ate (P$ : 2860 
64 AB 08 AB 4 0016 MOV 8(R11) Sips) ; 861 
FF70 CD 66 0090 a 28 0001 MOVC3 #144, suTPur LATTBUF, SAVE_ATTBUF + 2867. 
1 0D 0002 PUSHL #1 + 2873. 
F940 CF OF 900¢ PUSHAB LIST_ONE_RECORD : 
| 04 Ac DD 00029 PUSHL ; 
| 000000006 00 03 FB b00¢¢ CALL DEBLO : 
66 FF70 CD 0090 8F 28 000 MOVC Fike” SAVE F ATTBUF OUTPUT_ATTBUF ; 2878 
04 00038 RET + 2879 


| 3 Routine Size: 60 bytes, Routine Base: CODE + 1280 
| 
| 
| 
| 
| 
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DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 (11) 
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18-Sep-1984 90: 06:¢7 VAX-11 Bliss-32 V4.0-742 vege 


save set 55 
main List routine -Sep-19 DISKSVMSMASTER: CBACKUP.SRCILIST.832; (11) 
IF .INPUT_FLAGSCINPUT_WILDSAVE] AND .COM_FLAGSCCOM_EOV] THEN RETURN; 
waite (BCB = READ_BUFFER()) NEQ 0 DO 
IF .QUALCQUAL_SS_ENCRYPJ 
THEN 
4 BEGIN 
4 ! If we are decrypting an encrypted saveset and we don't yet have 
4 ! the required decrypt context, do a special scan of the first block 
4 ! to locate the backup summary record, extract the datakey information 
2 and initialize the decryption context. 
4 if .CRYP_DATA CODE EQLU 0 
5 THEN IF NOT (QUALCQUAL_SS_ENCRYP] = CRYPTO_INIDEC(.BCB)) 
: THEN SIGNAL (BACKUPS_BACNOTENC) ; 
2 Decrypt the buffer 
4 CRYPTO_DECR_BLOCK(.B(B); 
2 END 
3 ELSE 
2 BEGIN 
4 ; Make sure that the save set is not encrypted. 
4 if .CHK_SAVESET 
4 THEN IF CRYPTO _CHKSAV(.BCB) 
4 THEN SIGNAL (BACKUPS$_ENCSAVSET) ; 
4 CHK_SAVESET = 0 ; 
3 END ; 
3 
; DEBLOCK(.BCB, LIST_ONE_RECORD); 
2 END; 
2 FIN_IN_SAVE (FALSE); 
1 END; 


083C 00000 -ENTRY LIST, Save R2,R3,R4,R5,R11 > 2881 
55 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, RS ; 
54 00000000" EF 9E 00009 MOVAB UAL #1 Rnd : 
5E FEF8 CE 9E 00010 MOVAB -264(SP5, SP : 
6D 000000006 00 9E 90015 MOVAB RESTORE_HANDLER, (FP) : 2923 
58 6E 9E 0001C MOVAB PS$AREA, ~P$ : 2928 
6B 0100 8F 3C OOOT1F MOVZWL #256, (P$) : 2909 
04 AB 08 AB 3 90024 MOV B(R11), 4(P$) : 2930 
5 01 90 00029 MOVB #1, CHK_SAVESET : 2931 
7E D4 0002C CLRL 30s = §P) : 2936 
000000006 00 1 FB 90 E CALLS #1, INIT_IN SAVE ; 
04 00BC C4 6 €1 00 BBC #6, INPUT _FCAGS, 1$ : 2937 
6F 6E A& E8 00038 BLBS COM FLAGS $ ; 
000000006 00 00 FB 0003F 1$ CALLS #0, ~READ_BUFFER > 2939 


vbz~000 


02 AG 


; Routine Size: 


1Sose0-1986 90:06:28 


List a save 
LIST = main tise routine 1 
52 0 00 0004 MOVL 
20 0g 0948 BEQL 
2c 02 AG 04 €1 rh BBC 
O6DC C4 DS BRe TSTL 
18 12 00054 BNEQ 
52 dD O28 PUSHL 
000000006 00 9 FB 005 CALLS 
1 04 0 FO 0005F INSV 
09 50 €8 00065 BLBS 
G0000000G 8F DD 00068 PUSHL 
65 9} FB pee CALLS 
2 DD 00071 2$ PUSHL 
00000000G 00 01 FB 00073 CALLS 
1A 11 OOO7A BRB 
15 53 €9 0007C 3$ BLBC 
52 DD 0007F PUSHL 
00000000G 00 9 FB 00081 CALLS 
09 0 €9 00088 LBC 
00000000G 8F DD Babee PUSHL 
65 01 FB 00091 CALLS 
53 94 00094 4$: CLRB 
F893 CF 9F 00096 5$: PUSHAB 
52 DD OOO9A PUSHL 
000000006 00 02 FB 0009C CALLS 
9A 11 000A3 BRB 
7E D4 OOOAS 6$: CLRL 
00000000G 00 01 FB QO0A7 CALLS 
04 OOOAE 7$: ET 
175 bytes, Routine Base: CODE + 12BC 


RQ. BCB 
z. QUAL+14, 3$ 
cRvP_ DATA_CODE 
bce 

#1, CRYPTO_INIDEC 
RO, #4, #17 QUAL+14 


#BACKUPS BACNOTENC 
LIBSSIGN. 


, CRYPTO_DECR_BLOCK 
CHK_SAVESET, 4$ 
#1, CRYPTO_CHKSAV 
#BACKUPS$_ENCSAVSET 
# L8SS1GNA NAL 


¢ 


CHK _SAVESET 
LIST_ONE_RECORD 
BCB 

#2, DEBLOCK 

1$ 


(SP) 
#1, FIN_IN_SAVE 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CBACKUP.SRCILIST.832;1 
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941 
949 


2950 


2951 
2955 


941 
963 
2964 


2965 


966 
970 


2939 


2973 
2974 


1 
LIST List a save set 5 aA -1984 3 VAX-11 BLi 
\b2-000 LIST = main List routine 12-2282} 7 90: 9¢: ¢3 DISKSVMSMA 
3; 14 975 1 END 
3 re 3372 0 ELUDOM 
eEXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
COMMON eles NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,A 
CODE 4 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,A 
Library Statistics 
ecccecees Symbols -<------ Pages Processing 
File Total ioaded Percent Mapped Time 
-$255$DUA28 : CSYSLIBILIB.L32;1 18619 60 0 1000 00:02.2 


COMMAND QUALIFIERS 


$-32 V4.0-742 
TER: (BACKUP. SRCILIST.B32; ? 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LIST/OBJ=OBJ$:LIST MSRC$:LIST/UPDATE=(ENHS$:LIST) 
2650 code + 4445 data bytes 


ieoned’ 
Lines/C 
sonenee 


ceo Bl 


Hee: 03:28.5 
PU Min: 760 
/CPU-Min: 32477 
Used: 595 pages 
tion Complete 
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